conversão de bases numericas

[MARCOS PEDROSO]

boa noite !

Tenho que converter um numero hexadecimal em binário.

Se alguém puder me ajudar com o codigo ou programa em vb serei muito grato.

exemplo:

hexadecimal =FFFF

binário= 1111111111111111

[Jhonas]

exemplo

Public Function toHex(s As String)

//Converte string binario para hexadecimal

Dim sResult As String
Dim nCnt As Integer
For nCnt = 1 To Len(s)
sResult = sResult & Right("00" & Hex(Asc(Mid(s, nCnt, 1))), 2)
Next
toHex = sResult
End Function

Public Function toBinary(s As String)

//Converte hexadecimal para binario

Dim sResult As String
Dim nCnt As Integer
For nCnt = 1 To Len(s) Step 2
sResult = sResult & Chr(Val("&H" & Mid(s, nCnt, 2)))
Next
toBinary = sResult
End Function

outros exemplos

http://www.ehow.com/how_5175767_convert-hex-binary-visual-basic.html

http://bytes.com/topic/visual-basic-net/answers/366901-function-convert-hexadecimal-binary

http://social.msdn.microsoft.com/Forums/en-US/169a6aed-a222-44fa-a6fb-80b1c1dc4450/convert-hex-to-binary?forum=Vsexpressvb

abraço