|
Here's an easy to use
function you can place anywhere in your code:
Public Function Binary(Number As Long) As String
If Abs(Number) > 1 Then
Binary = Binary(Number \ 2) & CStr(Abs(Number Mod 2))
Else
Binary = CStr(Number)
End If
End Function
You can call it
like this:
MsgBox
Binary(1234)
|
