podria, pero si me diera el 1?? eso en ascii me parece q es nulo, weno ya me pasaron un codigo, y creo q mas o menos es como tu dices, os lo pego por si a alguien le interesa:
Private Function Palabra(iCarMin As Integer, iCarMax As Integer) As String
Dim sPalabra As String
Dim iTotalCarac As Integer
If iCarMin > iCarMax Then Exit Function
iTotalCarac = Int((iCarMax - iCarMin + 1) * Rnd + iCarMin)
For j = 1 To iTotalCarac
sPalabra = sPalabra + Chr(Int((122 - 97 + 1) * Rnd + 97))
Next j
Palabra = sPalabra
End Function
Nota: iCarMin = Caracteres minimos que quieres que tenga la cadena
iCarMax = Caracteres Maximos que tendra la cadena
Mostrar Mensajes