Function Binary1(x As Integer) As Boolean
    Binary1 = (x Mod 2) <> 0
End Function
Function Binary2(x As Integer) As Boolean
    Binary2 = (x \ 2) Mod 2 <> 0
End Function
Function Binary3(x As Integer) As Boolean
    Binary3 = (x \ 4) Mod 2 <> 0
End Function
Function Binary4(x As Integer) As Boolean
    Binary4 = (x \ 8) Mod 2 <> 0
End Function
Function Binary5(x As Integer) As Boolean
    Binary5 = (x \ 16) Mod 2 <> 0
End Function
Function Binary6(x As Integer) As Boolean
    Binary6 = (x \ 32) Mod 2 <> 0
End Function