[VB] Binary

VB Code:

Function Bin(ByVal X As Long) As String
    Do
        Bin = (X And 1) & Bin
        X = X \ 2
    Loop While X
End Function