Visual Basic - Covertir Long a Bit

Necesito una funcion que le ingrese un numero y me devuelva los bit que lo confiorman
Si alguien la tiene me la pasaria por favor???
Gracias

Solo sirve para numeros positivos

Private Function Dec2Bin(lDec As Long) As String

Dim lRest As Long
Dim sResult As String

lRest = lDec
While lRest > 1
sResult = lRest Mod 2 & sResult
lRest = lRest \ 2
Wend
sResult = lRest & sResult

Dec2Bin = sResult

End Function