Private Sub Command1_Click()
    Dim b As Byte
    Dim check As Long
    Dim i As Long
 
    b = 15
    For i = 0 To 7
        If (b And 2 ^ i) = 2 ^ i Then check = check + 1
    Next i
    MsgBox CStr(check) + " Einsen in " + CStr(b) + " enthalten"
End Sub

Gru? Michi aus Hannover

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