Hacer programa de pass recovery

[aldo1982]

Iniciado por antonio2005pe

esto es lo que quiero hacer pero en letras, yo lo tengo en numeros,
este es mi codigo en numeros...

Private Sub Command1_Click()
Dim x As Double
Do Until x = 100000
List1.AddItem x
x = x + 1
Loop
End Sub

pero lo quiero en letras, se entiende?
gracias.

lo ideal seria hacerlo para letras y despeus probar con simbolos tambien.