Saludos, en la ScreenShot que colocaste, pusiste:
Cita: Primero toma cada valor de caracter, lo pasa a ascii y luego lo convierte a hexa
Este codigo convierte cada caracter de tu cadena a su codigo ascii, y luego lo convierte en hexadecimal, y lo separa en pares:
Código:
Public Function TurnToHex(ByVal sValue As String) As String
Dim iLen As Integer
Dim l As Long
Dim lAsc As Long
Dim sHex As String
iLen = Len(sValue)
For l = 1 To iLen
lAsc = Asc(Mid(sValue, l, 1))
sHex = sHex + Hex$(lAsc) + " "
Next
TurnToHex = sHex
End Function
Sin embargo produce un diferente resultado al que publicaste:
Publicado: 50 d6 e6 e9 ee ...
Funcion: 31 32 33 34 35 36 61 62
Debido a que 50 en hexadecimal = 80 en decimal y el caracter correspondiente a ese numero es "P".
Si convertimos la cadena 31 32 33 34 35 36 61 62 a decimal obtenemos
49 50 51 52 53 54 97 98
Y el Caracter ascii de cada uno de estos numeros es:
1 2 3 4 5 6 a b
Por lo que creo que el proceso lo realiza de diferente manera.