0 binary to decimal in vb6

Private Sub Cmd2_Click()
Dim dn As Long
dn = InputBox("Enter the  No. to convert to binary")
MsgBox ("Result is " & bno(dn))

End Sub
Function rrrUp(ByVal rrr As Long) As Long
Static intr(0 To 31) As Long, n As Integer
If intr(0) = 0 Then
intr(0) = 1
For i = 1 To 30
intr(i) = intr(i - 1) * 2
Next
intr(31) = &H80000000
End If
rrrUp = intr(rrr)
End Function

Function bno(ByVal cc As Long) As String
Dim intr As String, rrr As Integer
intr = String$(32, "0")
Do
If cc And rrrUp(rrr) Then
Mid$(intr, 32 - rrr, 1) = "1"
cc = cc Xor rrrUp(rrr)
End If
rrr = rrr + 1
Loop While cc
bno = Mid$(intr, 33 - rrr)
End Function



Private Sub Cmd1_Click()
End
End Sub