[SOLUCIONADO] Problema con código VB6 para Crypter

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

Private Sub Command2_Click()
Text2.Text = srandom
End Sub

Len(diminteger)

Len(dimstring)