vba Tenho um problema com meu código.

[Matheus Salomão Alves]

Tenho um problema com meu código de transcodificação. Eu tenho essa função translate o qual codifica e descodifica uma mesnagem, mas quando ela descodifica, a mensagem sai toda errada. Eis o código abaixo.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Function translator(ByVal text As String, ByVal from As String, ByVal dest As String) As String
    Dim i As Integer
    
    For i = 1 To Len(from)
        Debug.Print Mid(from, i, 1) & vbTab & "#" & Format$(i, "00") & "#"
        text = Replace(text, Mid(from, i, 1), "#" & Format$(i, "00") & "#")
        i = i + 1
    Next
    
    For i = 1 To Len(from)
        Debug.Print "#" & Format$(i, "00") & "#" & vbTab & Mid(dest, i, 1)
        text = Replace(text, "#" & Format$(i, "00") & "#", Mid(dest, i, 1))
        i = i + 1
    Next
    
    translator = text
    
End Function

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Agradeço a ajuda.