Convert Decimal Number To Binary Number

'Insert the following code to your form:

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 Form_Load()
'Replace the '7234' below with the number you want to convert to binary
MsgBox dec2bin(7234)
End Sub