Function fkt_iHex2Int(sData As String) As Integer
    '
    'Umwandlung eines Hexadezimalwertes "0000" bis "FFFF"
    'in einen Integer-Dezimalwert unter Berücksichtigung
    'des zulässingen Wertebereichs von -32768 bis + 32767
    '
    Dim lngDezimalZahl As Long
 
    'Ein Integer kann hexadezimal max. 4 Stellen umfassen!
    'Da &hFFFF vorzeichenlos 65535 ergibt muß mit
    '"CLng" umgeformt werden!
    lngDezimalZahl = CLng("&h" & Right$("0000" & sData, 4))
 
    Select Case lngDezimalZahl
       Case Is > 32767
          'größter zulässiger INT-Wert von 32767
          'wurde überschritten!
          'Korrektur erforderlich!
          lngDezimalZahl = lngDezimalZahl - 65536
    End Select
 
    fkt_iHex2Int = CInt(lngDezimalZahl)
 
End Function

Function fkt_lngHex2Long(sData As String) As Long
    '
    'Umwandlung eines Hexadezimalwertes "00000000" bis "FFFFFFFF"
    'in einen Long-Dezimalwert unter Berücksichtigung
    'des zulässingen Wertebereichs von -2.147.483.648 bis + 2.147.483.647
    '
    Dim curDezimalZahl As Currency
 
    'Ein Long kann hexadezimal max. 8 Stellen umfassen!
    'Da &hFFFFFFFF vorzeichenlos nicht in Long paßt, muß mit
    '"CCur" umgeformt werden!
    curDezimalZahl = CCur("&h" & Right$("00000000" & sData, 8))
 
    Select Case curDezimalZahl
       Case Is > 2147483647
          'größter zulässiger Long-Wert von + 2.147.483.647
          'wurde überschritten!
          'Korrektur erforderlich!
          curDezimalZahl = curDezimalZahl - 4294967296#
    End Select
 
    fkt_lngHex2Long = CLng(curDezimalZahl)
 
End Function

Tschaui
Woellmi