I built a program of Visual Studio 2008. It's all right.
But I have a little problem, i got a little Debugg how to fix it ?

It's my function:
But I have a little problem, i got a little Debugg how to fix it ?

It's my function:
Code:
Private Function BinaryNbr(ByVal calc As Long) As String
Dim value As String, exp As Integer
value = "00000000000000000000000000000000"
Do
If calc And ExpUp(exp) Then
Mid$(value, 32 - exp, 1) = "1"
calc = calc Xor ExpUp(exp)
End If
exp = exp + 1
Loop While calc
BinaryNbr = Mid$(value, 33 - exp)
End Function
Comment