AJUDA COM CODIGO USANDO HEXADECIMAL
Citação:NovaFrase = NovaFrase & Chr(Asc(Mid(Frase, i, 1)) + 26)
Usando parte da função anterior bastaria remover a chamada à  função Chr, assim:
NovaFrase = NovaFrase & Asc(Mid(Frase, i, 1)) ' Sem somar 26NovaFrase = NovaFrase & Asc(Mid(Frase, i, 1)) + 26 ' Somando 26
hmmmm...nem precisou de mim...rsrs ;)
Gente, tà ' usando esse código que o jose passou, só que não tá somando os números, só tá acrescentando na frente. Tipo: invés de Fazer 1 + 1 = 2 tá fazendo 11. O código está em baixo.
Public Function ConvFrase(Frase As String) As String
Dim i As Integer
Dim NovaFrase As String
Dim Hexa As String
For i = 1 To Len(Frase)
Hexa = Hex(Asc(Mid(Frase, i, 1)))
NovaFrase = NovaFrase + Hexa
Next i
ConvFrase = NovaFrase
Text2.Text = ConvFrase
End Function
Public Function ConvFrase(Frase As String) As String
Dim i As Integer
Dim NovaFrase As String
Dim Hexa As String
For i = 1 To Len(Frase)
Hexa = Hex(Asc(Mid(Frase, i, 1)))
NovaFrase = NovaFrase + Hexa
Next i
ConvFrase = NovaFrase
Text2.Text = ConvFrase
End Function
Citação:NovaFrase = NovaFrase + Hexa
Não te passei exatamente este código !
Como as variaves envolvidas são duas strings o resultado é uma concatenação e não uma soma.
Gente, descobri o erro. Tinha que passar Hexa para Integer, enquanto taca em String, não dava. Obrigado José.
Tópico encerrado , respostas não são mais permitidas