Dec2Bin

Private Sub Command1_Click()
Dim res, numero As Single
Label1.Caption = ""
numero = Val(Text1.Text)
Do
res = numero Mod 2
Label1.Caption = Label1.Caption + " " + Str(res)
numero = Int(numero / 2)
Loop Until numero < 2
If numero = 1 Then
Label1.Caption = "1 " + StrReverse(Label1.Caption)
Else
Label1.Caption = StrReverse(Label1.Caption)
End If
End Sub