Private Function Bin(ByVal x As Long) As String
Dim temp As String
temp = ""
Do
If x Mod 2 Then
temp = "1" + temp
Else
temp = "0" + temp
End If
x = x \ 2
If x < 1 Then Exit Do
Loop
Bin = temp
End Function