Pesquisar na Comunidade

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.

QUERO TER UM VBA EXCEL QUE TENHA TODAS FUNÇOES DO COMANDO DOS EM BOTÕES PARA FACILITAR A MANUTENÇÃO DE MEUS COMPUTADORES como eu faço?????

Pessoal Gostaria de pegar apenas uma parte de uma celula no excel tipo: 111 - aaa22 2222 - bbbb33 33 - ccc11 Aparentemente quero pegar os numeros antes do " - " e gostaria de criar uma função fazer esse comando Poderiam me ajudar Obrigado