Visual Basic 6 - funzione da modificare, un aiutino :)

Salve, ho trovato nel sito un programma per criptare una stringa, ma io vorrei adattare la funzione a un mio programma, chiedo aiuto a voi!

La funzione originale è questa:

Private Sub cripta()
    Cript = ""
    key = Form1.Text3.Text
    X = Trim(LCase(Form1.Text1.Text))
    For i = 1 To Len(X)
        If Mid(X, i, 1) <> " " Then
            ris = Asc(Mid(X, i, 1)) + key
            stringa(i) = Chr(ris)
        End If
        Cript = Cript & stringa(i)
        Form1.Text2.Text = StrReverse(Cript)
    Next i
End Sub

vi chiedo come posso modificare la funzione in modo da poterla utilizzare su stringhe diverse?
come la posso chiamare nella main dando come parametro una stringa?
Grazie.

Per richiamare la sub dando come parametro una stringa basta chiamarla Sub Cripta(Testo as string)...l'altro problema nn l'ho capito ^^

risolto, grazie!

posta la soluzione...potrebbe essere d'aiuto anche ad altri

ho risolto in un altro modo, ora non necessito più di quella funzione.

per i posteri

Private Function cripta(text as string,key as long) as string
    dim X as String, i as long
    X = Trim(LCase(text)) 
    For i = 1 To Len(X) 
        If Mid(X, i, 1) <> " " Then 
            ris = (Asc(Mid(X, i, 1)) + key)mod 256
            stringa(i) = Chr(ris) 
        End If 
        Cripta = Cripta & stringa(i) 
        text = StrReverse(Cripta) 
    Next i 
End Sub 

dovrebbe funzionare.
ho solo tradotto il codice in function e corretto il bug del chr()