Private Sub Command1_Click()
    MsgBox dec2bin(253)
End Sub
 
Public Function dec2bin(lDec As Long) As String
    Dim i As Long
    Dim lRest As Long
    Dim lZahl As Long
    Dim sResult As String
 
    Do While lDec > 0
        lRest = lDec Mod 2
        If lRest = 1 Then
            sResult = "1" + sResult
            lDec = lDec - 1
        Else
            sResult = "0" + sResult
        End If
        lDec = lDec / 2
    Loop
    dec2bin = sResult
End Function

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1