'Hallo...
'Hier ein kleines Beispiel zum Umwandeln von Integer Werten in 
' Hexadezimalwerten.
'
Private Function ConvertDecimalToHex(ByVal ConvertValue As Integer) As String
    Dim Result As String
 
    Result = Trim(Hex(ConvertValue))
    If Len(Result) < 2 Then
         Result = "0" & Result
    End If
    ConvertDecimalToHex = Result
End Function
 
Private Sub Command1_Click()
    Debug.Print ConvertDecimalToHex(-32768)
    Debug.Print ConvertDecimalToHex(32767)
    Debug.Print ConvertDecimalToHex(1)
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Dezimal nach Hexadezimal"
End Sub
'
'MfG
'Frank