I am assuming that you want to list the X,Y,Z coordinates of every line in your feature class. Use the following VBA as a starting points and customize for your needs:
Jay Sandhu
Public Sub ListLineCoordinates()
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pFLayer As IFeatureLayer
Set pFLayer = pMxDoc.SelectedLayer
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFLayer.FeatureClass
Dim pFeature As IFeature
Dim pPoint As IPoint
Dim pPCol As IPointCollection
Dim numLines As Long, pointCount As Long, i As Long, j As Long
Dim X As Double, Y As Double, Z As Double
Dim pQ As IQueryFilter
Set pQ = New QueryFilter
pQ.WhereClause = ""
numLines = pFeatureClass.FeatureCount(pQ)
For i = 1 To numLines
Set pFeature = pFeatureClass.GetFeature(i)
Set pPCol = pFeature.ShapeCopy
pointCount = pPCol.pointCount
For j = 0 To pointCount - 1
Set pPoint = pPCol.Point(i)
X = pPoint.X
Y = pPoint.Y
Z = pPoint.Z
Debug.Print i, j, X, Y, Z
Next j
Next i
End Sub
