codice:
Private Function Bin(ByVal Numero As Double) As String
Dim Num1 As Double
Dim Num2 As Double

Num2 = Int(Numero)
Num1 = Int(Numero)
Do Until Num1 = 0
  Num2 = Num2 / 2
  Num1 = Num1 \ 2
  If Num1 = Num2 Then
    Bin = "0" & Bin
  Else
    Bin = "1" & Bin
  End If
  Num2 = Fix(Num2)
Loop
End Function