Dim X As Integer, Wert_T As String
Dim Char As String, AscChar As Integer, HX As String
[color=green]'  Wert_T wurde in den Beispielen bereits definiert
 
For X = 1 To Len(Wert_T)
  Char=Mid$(Wert_T, X, 1)
  AscChar = Asc(Char)
  HX = Hex(AscChar)
Next X

Gruß
Marcus