Hola amigos, aqui esta el codigo para pasar un numero Decimal a Binario y de Binario a Decimal, trate de hacelo lo mas simple posible, espero que les sirva, saludos...
Para ambos casos necesitan dos controles TextBox y un CommandButton
Pasar de Decimal a Binario
Private Sub aBinario_Click()
Numero = Text1.Text '// Toma el numero decimal de un textbox
Do Until Numero < 2Resto = Resto & Str(Numero Mod 2)
Numero = Int(Numero / 2)
Loop
Resto = Resto & Numero
Text2.Text = StrReverse(Resto) '// Muestra el numero binario en un textbox
End Sub
Pasar de Binario a Decimal
Private Sub aDecimal_Click()
binario = Trim(Text1.Text) '// Toma el numero binario de un textbox
binario = StrReverse(binario)
largo = Len(binario)
For I = 1 To largoX = 2 ^ (I - 1)
suma = suma + (Int(Mid$(binario, I, 1)) * X)
Next I
Text2.Text = suma '// Muestra el numero decimal en un textbox
End Sub