Convert Decimal To Binary

[sheeeng]

Thanks for reply. This is the sub for DecimalToBinary.
Can anyone find out what went wrong?

' Function to Convert Decimal to Binary (To CELL ID)
Public Function DecimalToBinary(DecimalNum As Long) As String
Dim tmp As String
Dim n As Long
n = DecimalNum
tmp = Trim(Str(n Mod 2))
    n = n \ 2
Do While n <> 0
    tmp = Trim(Str(n Mod 2)) & tmp
    n = n \ 2
    Loop
DecimalToBinary = tmp
End Function