Dim byt() As Byte = _
    {&H68, &H41, &H4C, &H4C, &H4F, &H20, &H66, &H4F, &H52, &H55, &H4D, &H21}
'hALLO fORUM!
 
Dim ascii_enc As System.Text.Encoding = System.Text.Encoding.ASCII
Dim test As String = ascii_enc.GetString(byt)
 
'Unicode setzt für Ascii-Werte ein Byte auf 0
Dim unicode_enc As System.Text.Encoding = System.Text.Encoding.Unicode
Dim byt_unicode() As Byte = unicode_enc.GetBytes(test)
 
Dim hex_unicode(test.Length - 1) As String
Dim cp As Integer = -1
For i As Integer = 0 To byt_unicode.Length - 1 Step 2
   cp += 1
   hex_unicode(cp) = Hex(byt_unicode(i)) & Hex(byt_unicode(i + 1))
Next i