Cita:
Iniciado por Avellaneda 
Hola, te pongo una función para la conversión:
Código:
Public Function HexToBin(ByVal miHex As String) As Long
Dim sTmp As String, miDec As Currency
Dim i1 As Integer, i2 As Integer, L1 As Long, L2 As Long
' primero lo convertimos a Decimal
miHex = Right("0000000" & miHex, 8)
i1 = CInt("&H" & Right(miHex, 2))
i2 = CInt("&H" & Mid(miHex, 3, 2))
L1 = CLng("&H" & Mid(miHex, 5, 2))
L2 = CLng("&H" & Left(miHex, 2))
miDec = CCur(L2 * 256 + i2) * 65536 + (L1 * 256) + i1
' ahora de Decimal a Binario
Dim miBin As String, sDec As String
sDec = Str(miDec)
Do
sTmp = Str(sDec Mod 2)
miBin = sTmp & miBin
sDec = IIf(Right(Str(sDec), 2) = ".5", sDec - 0.5, IIf(sDec Mod 2 > 0, sDec - 1, sDec)) / 2
Loop Until sDec = 0
HexToBin = Val(miBin)
End Function
Para llamar a la función, p.e. desde un TextBox
Código:
Dim Binario As Long
Binario = HexToBin("E1")
MsgBox Binario ' resultado: 11100001 
oye amigo: muchas gracias por hacerme el favr,,
pero tengo otra pregunta,,, que necesito??
un command button, un text box,, no se que necesito para tu diseño
gracias