VB String nach Hex String umwandeln

[PeterM (Gast)]

Hallo,

ich versuche einen String in einen Hex String umzuwandeln.
z.B.

String = "Hallo"

sollte in

HexString = "48616c6c6f"

umgewandelt werden.

mit dem hier oder auf diese Art bekomme ich es nicht hin:

        For i = 0 To strinh.Length - 1
            hexstring = hexstring & Hex(s1(i))
        Next

oder auch mit ToString klappt es leider nicht, hat jemand eine idee?

[karadur (Gast)]

Hallo
Tip1:
Text1.Text = Str(Hex(Asc(Text2.Text)))

Tip2: mid()

[karadur (Gast)]

Hallo

war noch ein Fehler drin.

in VB6 geht das hier:
Private Sub Command1_Click()
Dim lang, i As Integer

    lang = Len(Text2.Text)
    For i = 1 To lang
         Text1.Text = Text1.Text + Hex(Asc(Mid(Text2.Text, i, 1)))
    Next i

End Sub