Sub test()
        Dim t1 As String = Chr(&H1) & Chr(&H15)
        Dim e As String, i As Int16
 
        e = Convert.ToInt16(GetChar(t1, 1)).ToString("X") & Convert.ToInt16( _
          GetChar(t1, 2)).ToString("X2")
        i = Convert.ToInt16(e)  ' nur,wenn du mit der Zahl rechnen willst
 
        Debug.Print(e)
        Debug.Print(i)
 
    End Sub