CodeItBetter Programming Another VB Programming Blog

'Math - How to convert Decimal Number to Binary Number

Public Function Dec2Bin(myNum As Variant) As String
    Dim loopcounter As Integer
    If myNum >= 2 ^ 31 Then
        Dec2Bin = "Number too big"
        Exit Function
    End If
    Do
        If (myNum And 2 ^ loopcounter) = 2 ^ loopcounter Then
            Dec2Bin = "1" & Dec2Bin
        Else
            Dec2Bin = "0" & Dec2Bin
        End If
        loopcounter = loopcounter + 1
    Loop Until 2 ^ loopcounter > myNum
End Function
 
Private Sub Main()
    MsgBox Dec2Bin(63923)
End Sub