Function test16(t1 As String) As Short
 
        Dim e As String, i As Int16
 
        e = Convert.ToInt16(GetChar(t1, 1)).ToString("X2") & Convert.ToInt16( _
          GetChar(t1, 2)).ToString("X2")
        i = Convert.ToInt16(e)  ' nur,wenn du mit der Zahl rechnen willst
 
        Return i
 
End Function

    Function Test(t1 As String) As Integer
 
        Dim e As String = ""
 
        For i = 1 To Len(t1)
            e = e & Convert.ToInt16(GetChar(t1, i)).ToString("X2")
        Next
 
        Return Convert.ToInt32(e)
 
    End Function