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.