VB.NET Code:
Function Bin(ByVal Number As Long) As String
Dim binval As String = ""
Dim nbr As Long = Number
While nbr > 0
binval = (nbr And 1) & binval
binval >>= 2
End While
Return binval
End Function
Function Bin(ByVal Number As Long) As String
Dim binval As String = ""
Dim nbr As Long = Number
While nbr > 0
binval = (nbr And 1) & binval
binval >>= 2
End While
Return binval
End Function