Public Function CBin(Number As Integer) As String
Dim Temp As Variant Temp = 1 'Can't Double nothing Do Until Temp > Number 'sets starting point For Len Temp = Temp * 2 Loop Do Until Temp < 1 If Number >= Temp Then CBin = CBin + "1" Number = Number - Temp Else CBin = CBin + "0" End If Temp = Temp / 2 Loop 'Loop until String is complete CBin = CStr(Val(CBin)) End Function |