Funcion que trasnforme un numero a Binario

Hola:
Prueba esto


Private Function Hex2Bin(ByVal strHex As String) As String
Dim i As Integer
Dim strBinCodes As String
Dim strBuf As String
'Inicializa tabla con codigos binarios.
strBinCodes =
"0000000100100011010001010110011110001001101010111100110111101111"
'Uno por uno, convierte y acumula codigo binario correspondiente al
digito hexadecimal.
strBuf = ""
For i = 0 To strHex.Length
strBuf &= Mid$(strBinCodes, Val("&H" & Mid$(strHex, i, 1)) * 4 + 1,
4)
Next i
Hex2Bin = strBuf
End Function

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Borja" escribió en el mensaje
news:

Alguien sabe si existe alguna funcion en visual basic.net que transforme
un
número (necesito que me transforme un número hexadecimal) a Binario.