' Gibt einen String mit der Binärzahl zurück
Public Function DecimalToBinary(Byval decimalNumber As Long, Byval _
  numBinaryDigits as Long) As String
    Dim i As Long
    For i = numBinaryDigits - 1 To 0 Step -1
        If (decimalNumber AND (2 ^ i)) <> 0 Then
            DecimalToBinary = DecimalToBinary & "1"
        Else
            DecimalToBinary = DecimalToBinary & "0"
        End If
    Next i
 
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)