[VB6] Conversione stringa in array di caratteri, poi esadecimale

[oregon]

Oppure, piu' semplicemente

    Dim s As String
    Dim a() As Byte
    
    s = "CIAO"

    a = StrConv(s, vbFromUnicode)