'Hallo...
'Hier ein kleines Beispiel zum Umwandeln von Longwerten in Hexadezimal Werte.
Private Sub Command2_Click()
    Debug.Print ConvertLongToHex(1); " 1"
    Debug.Print ConvertLongToHex(100); " 100"
    Debug.Print ConvertLongToHex(100000); " 100000"
End Sub
 
Private Function ConvertLongToHex(ByVal ConvertValue As Long) As String
  ConvertLongToHex = UCase(Right(String(7, "0") & Hex(ConvertValue), 8))
End Function
'MfG
'Frank