Private Function dez2bin(ByVal dezwert As Double)
 
    'Binärzahlenerrechnung zu Fuß, wie wie es in der Schule gelernt haben...
    Do
        'bei Division durch 2 = Rest, dann 1, sonst 0
 
        If dezwert / 2 <> Int(dezwert / 2) Then
            binaer = "1" & binaer
        Else
            binaer = "0" & binaer
        End If
        dezwert = Int(dezwert / 2)
        If dezwert = 1 Then
            'weil noch nicht zu ende, 1 anhängen...
            binaer = "1" & binaer
            Exit Do
        End If
    Loop
 
    'in binaer ist jetzt der Binärstring...
 
    'wegen hex(4-stellig...)
    lenbin = Len(binaer) / 4
    lenbinFIX = lenbin - Int(lenbin)
    'führende Nullen...
    If lenbinFIX = 0.25 Then binaer = "000" & binaer
    If lenbinFIX = 0.5 Then binaer = "00" & binaer
    If lenbinFIX = 0.75 Then binaer = "0" & binaer
 
    dez2bin = binaer
 
 
End Function
 
 
 
Private Function bin2hex(ByVal binwert As String)
 
    hexwert = ""
    'in Vierergruppen Hexwert ermitteln
    For i = 1 To Len(binwert) Step 4
        bin = Mid$(binwert, i, 4)
 
            Select Case bin
                Case "0000"
                    hexwert = "0"
 
                Case "0001"
                    hexwert = "1"
 
                Case "0010"
                    hexwert = "2"
 
                Case "0011"
                    hexwert = "3"
 
                Case "0100"
                    hexwert = "4"
 
                Case "0101"
                    hexwert = "5"
 
                Case "0110"
                    hexwert = "6"
 
                Case "0111"
                    hexwert = "7"
 
                Case "1000"
                    hexwert = "8"
 
                Case "1001"
                    hexwert = "9"
 
                Case "1010"
                    hexwert = "A"
 
                Case "1011"
                    hexwert = "B"
 
                Case "1100"
                    hexwert = "C"
 
                Case "1101"
                    hexwert = "D"
 
                Case "1110"
                    hexwert = "E"
 
                Case "1111"
                    hexwert = "F"
 
            End Select
 
            bin2hex = bin2hex & hexwert
 
        Next
 
 
End Function
 
 
Private Sub rechne()
 
    dez = 99999999999999#
 
    'zum besseren Verständnis:
    bin = dez2bin(dezwert)
    txt = bin2hex(bin)
    MsgBox txt
 
    'oder so:
    MsgBox bin2hex(dez2bin(99999999999999#))
 
End Sub