Dim s As String = "12345678"
        Dim i As Integer
        Dim sb As New System.Text.StringBuilder()
        For i = 1 To s.Length Step 2
            sb.Append(Convert.ToChar(Convert.ToInt32(Mid(s, i, 2), 16)))
        Next i
        MsgBox(sb.ToString())

Dim s As String = "↕4Vx"
        Dim i As Integer
        Dim sb As New System.Text.StringBuilder
        Dim a As Integer
        Dim b As String = ASCII2Hex("↕4Vx")