Visual Basic - decimal a binario

¿Tiene Visual Basic 6.0 alguna función que convierta los valores decimales (como códigos ascii) a su correspondiente valor binario?

Gracias.

Prueba esto:

Function Binario(NumDec As Long) As String
Dim NBinario As String

MsgBox Hex(NumDec) 'Esto saca el número Hexadecimal (Base 16)

NBinario = ""
Do While NumDec > 1
NBinario = NumDec Mod 2 & NBinario
NumDec = NumDec \ 2
Loop
NBinario = NumDec & NBinario

MsgBox NBinario 'Esto saca el número binario (Base 2)

Binario = NBinario
End Function

Saludos
Josetxu