Visual Basic 6 - Aiuto non riesco a decriptare...................

Ciao a tutti, stò realizzando un software per criptare tramite un algoritmo da me inventato, che rende il testo criptato in testo numerico.
Dov'è il problema?
il problema e che non riesco a fare l'inverso dell'algoritmo, quindi a decriptare.
Ecco l'algoritmo da me creato per criptare:

Dim chiave, a, b, c As Integer
Dim criptata, decriptata As String

Private Sub Command1_Click()
a = Asc(Text1) * 2
b = Val(Asc(Text1) * 2)
criptata = CDbl(a) * CDbl(b) / 2
Text2 = criptata
End Sub

Qualcuno può aiutarmi a creare l'inverso?

premessa. è inutile e impossibile criptare l'intero messaggio. essendoci alcuni caratteri da 1 ,2 o 3 cifre anche risalendo alla serie numerica del asc(text1)non si saprebbe come dividere correttamente le parole.
una soluzione è fare lettera per lettera.


criptata = cdbl(a*b)/2 = cdbl(2k*2k)/2=
=cdbl(2(k^2))

a logica (non testato)

letterainiziale = chr(int(sqr(criptata/2)))