[SOLUCIONADO] Problema con código VB6 para Crypter

Hola a la tropa:

Me he animado a hacer un crypter, pero me encuentro con un problema.
Tengo este código:
Const clave1 = "Aquí meto el código de la primera clave"
Const clave2 = "Aquí meto el código de la segunda clave"
Const clave3 = "Aquí meto el código de la tercera clave"
Public Function srandom()
Dim dimstring As String
Dim diminteger As Integer
dimstring = clave1 + clave2 + clave3
For diminteger = 1 To 50
srandom = srandom & Mid$(dimstring, Int((Rnd * Len(diminteger)) + 1), 1)
Next diminteger
End Function
y este otro:
Private Sub Command2_Click()
Text2.Text = srandom
End Sub
Lo que me ocurre es que cuando le doy al botón de generar las keys sólo me toma los dos primeros caracteres de la primera clave.

He estado revisando el código y lo veo bien. A ver si alguien me puede echar un cable.

Gracias y saludos.

Hace rato que no toco vb...

Y a lo mejor digo un locura, pero me parece raro esta parte:

Len(diminteger)
No seria:

Len(dimstring)
Saludos

OK. Correcto. Era eso. No sé cómo no lo he visto antes. Gracias.

Buenísimo MYokai