Convertir de binario a decimal en visual basic

[roortiz]

Ya tengo el codigo para pasar de BINARIO a DECIMAL: creo que funciona bien
el formulario debe tener un textbox, un boton, y un label.

Dim Numero As Double
Dim Res As Double

Private Sub Command1_Click()
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


espero que les sirve y que lo usen....