Private Sub Helpvar()
    Dim b As Byte
    Dim check As Long
    Dim i As Long
    Dim n As Long
 
    b = 15
    n = 1
    For i = 0 To 7
        n = n * 2
        If (b And n) Then check = check + 1
    Next i
 
End Sub