想用PPT做一个滚动抽奖的程序，但是遇到了问题，求解。。

小丸子

基本上都没啥问题，关键地方是怎么样让抽奖栏显示从001-620这样子 就是无论是那个数字都是用三位数表示
Sub txtStart()
    For i = 1 To 5000
        With ActivePresentation.Slides(1)
            For j = 1 To 1
                With .Shapes("txtNum" & j).TextFrame.TextRange
                    .Text = Int((620 - 1 + 1) * Rnd + 1)
                    .Font.Color.RGB = 10000 * Rnd
                    Debug.Print .Text
                End With
            Next
        End With
        DoEvents
    Next
End Sub
Sub OnSlideShowTerminate()
    Exit For
End Sub