Aqui codigo para pasar entre binario y decimal y viceversa

[pindyortiz]

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 < 2

Resto = 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 largo

X = 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