Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim hex As String = "43003a005c00550073006500720073005c00730079007300610
064006d0069006e002e006c00650065007200300031005c0041
007000700044006100740061005c0052006f0061006d0069006e00
67005c004400650073006b0074006f0070005c00530079007300460069006c00650073000000"
        MessageBox.Show(HexToStr(hex))
    End Sub
 
    Public Function HexToStr(ByVal Data As String) As String
        Dim com As String
        Dim i As Integer
        For i = 0 To Data.Length - 1 Step 2
            com &= ChrW(CInt("&H" & Data.Substring(i, 2)))
        Next
        Return com
    End Function

        For i = 0 To Data.Length - 1 Step 2
            Messagebox.Show(ChrW(CInt("&H" & Data.Substring(i, 2))))
        Next

        For i = 0 To Data.Length - 1 Step 2
            Textbox1.text=Textbox1.Text & ChrW(CInt("&H" & Data.Substring(i, _
              2))))
        Next

EALA FREYA FRESENA

Beitrag wurde zuletzt am 11.04.14 um 16:04:43 editiert.