Convertir de binario a decimal en visual basic

[roortiz]

Esta es la funcion que pasa de decimal a binario

debes usarla asi:
Dim numero as integer
numero=text1.text

label1.caption=bin(numero)


Function Bin(ByVal Numero As Integer) As String
Dim Binario As String
Dim Inicial() As String
Dim Final() As String
Dim Contador As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Do
Binario = Binario & CStr(Numero Mod 2)
Numero = Numero \ 2
Contador = Contador + 1
Loop Until Numero < 1
ReDim Inicial(Contador)
ReDim Final(Contador)
Binario = Trim(Binario)
For I = 1 To Contador
Inicial(I) = Mid$(Binario, I, 1)
Debug.Print Inicial(I)
Next I
Binario = ""
For J = 1 To Contador
Final(J) = Inicial(Contador + 1 - J)
Next J
For K = 1 To Contador
Binario = Binario & Final(K)
Next K
Bin = Binario
End Function