'No Declarations 'If u want to generate 0001,0002,...,0100,0101,....etc 'you have to put x=getstrnum(n,4),where n varies.

Private Function numdigit(ByVal val As Integer) As Integer Dim c, r As Integer flag = 0 c = 0 While val <> 0 r = val Mod 10 val = val \ 10 c = c + 1 Wend numdigit = c End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function getstrnum(ByVal num As Integer, ByVal width As Integer) As String Dim nx As Integer Dim strx, strxy As String Dim i As Integer strx = "0" nx = width - numdigit(num) For i = 1 To nx - 1 strx = strx & "0" Next i If numdigit(num) < width Then strx = strx & num Else strx = num End If getstrnum = strx End Function