Private Sub rechne()
 
    dezwert = 99999999999999#   '<-------------- Druckfehler, muß dezwert 
    ' heißen !!!!!!
 
    'zum besseren Verständnis:
    bin = dez2bin(dezwert)
    txt = bin2hex(bin)
    MsgBox txt
 
    'oder so:
    MsgBox bin2hex(dez2bin(99999999999999#))
 
End Sub