Visual Basic - Binario

tengo el numero "02" por ejemplo y quiero convertirlo a binario, es decir, 0010. hay alguna funcion que haga esto?? o como puedo lograrlo???

Esta en: http://www.elguille.info/vb/cursos_vb/basico/basico07.htm

Es:

Private Function Dec2Bin(sNumDec As String) As String
' Recibe una cadena que será un número decimal
' Devuelve ese número representado por ceros y unos
'
Dim i As Integer
Dim lngNum As Long ' Long, por si las moscas
Dim sTmp As String ' Cadena temporal

lngNum = Val(sNumDec)
sTmp = ""
For i = MaxBits - 1 To 0 Step -1
If lngNum And 2 ^ i Then
sTmp = sTmp & "1"
Else
sTmp = sTmp & "0"
End If
Next

Dec2Bin = sTmp
End Function