Hubieras triunfado si hubieras puesto enlaces, algunos de esos ya los conocia, tienes mas?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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