Public Function DecToBin(ByVal X As Long) As String
DecToBin = "00000000000000000000000000000000"
If (X And 1) Then Mid$(DecToBin, 32) = "1"
If (X And 2) Then Mid$(DecToBin, 31) = "1"
If (X And 4) Then Mid$(DecToBin, 30) = "1"
If (X And 8) Then Mid$(DecToBin, 29) = "1"
If (X And 16) Then Mid$(DecToBin, 28) = "1"
If (X And 32) Then Mid$(DecToBin, 27) = "1"
If (X And 64) Then Mid$(DecToBin, 26) = "1"
If (X And 128) Then Mid$(DecToBin, 25) = "1"
If (X And 256) Then Mid$(DecToBin, 24) = "1"
If (X And 512) Then Mid$(DecToBin, 23) = "1"
If (X And 1024) Then Mid$(DecToBin, 22) = "1"
If (X And 2048) Then Mid$(DecToBin, 21) = "1"
If (X And 4096) Then Mid$(DecToBin, 20) = "1"
If (X And 8192) Then Mid$(DecToBin, 19) = "1"
If (X And 16384) Then Mid$(DecToBin, 18) = "1"
If (X And 32768) Then Mid$(DecToBin, 17) = "1"
If (X And 65536) Then Mid$(DecToBin, 16) = "1"
If (X And 131072) Then Mid$(DecToBin, 15) = "1"
If (X And 262144) Then Mid$(DecToBin, 14) = "1"
If (X And 524288) Then Mid$(DecToBin, 13) = "1"
If (X And 1048576) Then Mid$(DecToBin, 12) = "1"
If (X And 2097152) Then Mid$(DecToBin, 11) = "1"
If (X And 4194304) Then Mid$(DecToBin, 10) = "1"
If (X And 8388608) Then Mid$(DecToBin, 9) = "1"
If (X And 16777216) Then Mid$(DecToBin, 8) = "1"
If (X And 33554432) Then Mid$(DecToBin, 7) = "1"
If (X And 67108864) Then Mid$(DecToBin, 6) = "1"
If (X And 134217728) Then Mid$(DecToBin, 5) = "1"
If (X And 268435456) Then Mid$(DecToBin, 4) = "1"
If (X And 536870912) Then Mid$(DecToBin, 3) = "1"
If (X And 1073741824) Then Mid$(DecToBin, 2) = "1"
If (X And -2147483648#) Then Mid$(DecToBin, 1) = "1"
End Function