*****modBinary.bas*****
Public Function Binary(ByVal Number As Integer) As String