Visual Basic - Hallar la cadena binaria de un nª

Necesito convertir números decimales en binario pero no encuentro una función en vb.
ejs.

nº decimal:3
cadena en binario: "00000011"

nº decimal:254
cadena en binario: "11111110"

Dicha función no existe, pero prueba con:
Public Function ToBin(ByVal X As Long) As String

While X > 0
ToBin = IIf(X Mod 2 = 1, "1", "0") & ToBin
X = X \ 2
Wend

End Function

Esta función no trata correctamente los números negativos, y además si quieres que el resultado se complete hasta los 8, 16, 32 bits con ceros deberás implementarlo.

Gracias Alberto, voy a probarlo.