Print Hex$(HexToInt("80ABCDEF"))
WaitKey()

Function HexToInt(hexstr$)
   Local i
   Local leng=Len(hexstr)
   Local value=$80000000 ; Startwert ist die kleinstmögliche Zahl
   
   For i=1 To 8
      Local char$ ;Zeichen
      Local num ;Wert der einzelnen Ziffer
      
      If i>8-leng Then
         char$=Mid(hexstr, i-8+leng, 1)
         If Str(Int(char))=char Then ; 0 - 9
            num=Int(char)
         Else ; A - F
            Local ascchar=Asc(Upper(char))
            If ascchar>=65 And ascchar<=70 Then
               num=(ascchar-55)
            Else
               Return 0 ;Ungültiges Zeichen
            EndIf
         EndIf
      Else
         num=0
      EndIf
      
      If i=1 Then ;Erstes Bit umkehren
         If num>=8 Then
            num=num-8
         Else
            num=num+8
         EndIf
      EndIf
      value=value+num*16^(8-i)
   Next
   
   Return value
End Function