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)  Then check = check + 1
    Next i
    MsgBox CStr(check) + " Einsen in " + CStr(b) + " enthalten"
End Sub