[VB6] Visualizzazione stringhe con formato esadecimale

[MItaly]

Usa questa funzione che ho scritto: le passi la stringa come parametro e ti restituisce una stringa contenente la tua stringa in esadecimale; ad esempio, passandole "Ciao HTML.it!" ti restituisce "4369616F2048544D4C2E697421".

Public Function String2Hex(ByVal inString As String) As String
    String2Hex = Space(Len(inString) * 2)
    Dim c As Long
    For c = 0 To Len(inString) - 1
        Mid(String2Hex, c * 2 + 1, 2) = Hex(Asc(Mid(inString, c + 1, 1)))
    Next c
End Function