alguien me lo puyede explicar??

[David_erh]

Hola a todos, quiero pedirles ayuda,encontré en un tutorial de "Guille" esta rutina y no la entiendo bien y quisiera que me la expliquen, acá va:

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
' el resultado será un binario de 8 bits

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 = 0 To 7
If lngNum And 2 ^ i Then
sTmp = sTmp & "1"
Else
sTmp = sTmp & "0"
End If
Next

Dec2Bin = sTmp
End Function

Por ejemplo si se ingresa el numero 10 en un textbox, el valor de lngNum será siempre 10 y la iesima potencia de 2 será en cada iteracción 1,2,4,8,16,.....,255, entonces la sentencia será siempre verdadera y la cadena sTmp será "11111111", ¿cuando se cumple que la sentencia es falsa????.
Espero me ayuden, gracias.
David