[Resolvido]Erro de estouro quando criptografa

Boa noite a todos.

Nessa codificação tenho 02 botões:
1 Criptografa
2 Descriptografa

Codificação dos botões

Código:

Private Sub cmdCrypt_Click()
   Texto1.Value = Crypt(Trim(Texto1.Value))
End Sub

Private Sub cmdDecrypt_Click()
   Texto2.Value = Decrypt(Trim(Texto1.Value))
End Sub

No módulo a seguinte função:

Código:

Option Compare Database

'Encripta a senha digitada
Function EncryptText(ByVal Source As String) As String
Dim Dest As String, i As Integer, L As Integer
 Dest = Source
 L = Len(Source) + 1
 For i = 1 To Len(Dest)
   Mid$(Dest, i, 1) = Chr$((270 + i - Asc(Mid$(Source, L - i, 1))) And 255)
 Next i
 EncryptText = Dest
End Function

'Decripta a senha para forma normal
Function DecryptText(ByVal Source As String) As String
Dim Dest As String, i As Integer, L As Integer
 Dest = Source
 L = Len(Source) + 1
 For i = 1 To Len(Dest)
   Mid$(Dest, L - i, 1) = Chr$((270 + i - Asc(Mid$(Source, i, 1))) And 255)
 Next i
 DecryptText = Dest
End Function

Qual seria a ajuda?
Em palavras ou textos pequenos funfa. Mas em textos com 50.000 não vai.
Dá o erro em execução ¨"6": estouro.


Como posso criar ou modificar algo para que possa funcionar em textos longos?

Obrigado.
Anexo o exemplo.

Bom dia.
Excelente.
Salvou a semana.
Muito obrigado abs.