Function Decimal2Binary(dblNumber) Dim strBinary, i If dblNumber = 0 Then Decimal2Binary = 0 Exit Function End If i = 0 Do While dblNumber \ 2 ^ i >= 1 strBinary = Abs((dblNumber And 2 ^ i) = 2 ^ i) & strBinary i = i + 1 Loop Decimal2Binary = strBinary End Function