ExplodeLASMultipoint in . Net for Arcgis 10

Good Night,
I actualized the script (for a final project of my class LIDAR) ExplodeLASMultipoint for Visual Studio 2010 .Net and now I have an error in the lines with smiles:

For i = 0 To pPC.PointCount - 1
pPC.QueryPoint(i, pPoint)
Dim X As Double
X = pPoint.X
Dim Y As Double
Y = pPoint.Y
If (X >= pEnv.XMin) And (X <= pEnv.XMax) And (Y >= pEnv.YMin) And (Y <= pEnv.YMax) Then
:D pOutFBuf.Shape = pPoint
pOutFBuf.Value(lSpotInx) = pPoint.Z :D
If (bHasBlobFields) Then
For j = 0 To pOutFieldInx.Count - 1
pBlob = pBlobs.Element(j)
pOutFBuf.Value(pOutFieldInx.Element(j)) = pBlob.GetValue(pPoint.ID)
Next j
End If
pOutFCur.InsertFeature(pOutFBuf)
End If
Next i

Can someone help me?