[RESOLVED] Generate

[Man!]

How can i generate numbers and words.
like if i want to generate a001 to a999 on pressing command button.
"a" should be taken from text box and rest of the work will be done by pressing command button.

Any one

[Man!]

Sub Sample()
    Dim i As Long
    
    For i = 1 To 999
        '~~> Outputting it to Listbox for example
        List1.AddItem Text1.Text & Format(i, "000")
    Next i
End Sub

thank you buddy