Visual Basic - Pasar un numero entero a binario

Hola a todos.Mi duda de gran novato es la siguiente.Necesito pasar un numero entero a formato binario. Es decir, recibo un 32 y necesito poder visualizar un 100000.
Ademas necesito recorrer ese numero binario bit a bit para la lectura.
Gracias a todos por vuestra ayuda.

Tienes que desencadenar las divisiones ( para quedarte con el resto) y luego girar el valor obtenido, por ejemplo, una posible implemetación:

Public Function DecToBin(ByVal vNum As Long) As String
'Desencadenar divisiones para calcular el valor en binario
While vNum > 0
DecToBin = DecToBin & (vNum Mod 2)
vNum = vNum \ 2
Wend

'Poner el valor de forma correcta
DecToBin = GirarCadena(DecToBin)
End Function

Public Function GirarCadena(ByVal vCad As Variant) As String
Dim intI As Integer

For intI = Len(vCad) To 1 Step -1
GirarCadena = GirarCadena & Mid(vCad, intI, 1)
Next intI
End Function