巴厘岛的鸡蛋岛:Arcgis 高手请进,新手求助急!!!

我想导出点层图的每个点的坐标.有位师兄告诉我用VBA编程给了我一大段代码,可我没学过VB,也没弄地VBA,有点急,也没时间重新开始学,有哪个高手能指点一下详细的过程吗?

我在arcgis里定制了一个按扭,然后在VBA里放上了师兄给我的代码,可运行不了.

Private Sub UIButtonControl1_Click()
'将选中点状图层各要素的X,Y坐标输出到文本文件中
'输入参数为选中图层和输出文件名(包括路径)
Public Function ExportXYCoor(inputLayer As IFeatureLayer, outputTextFile As String)
Dim pFCursor As IFeatureCursor
Dim pFeature As IFeature
Set pFCursor = inputLayer.Search(Nothing, False)
Set pFeature = pFCursor.NextFeature

'创建文本文件
Dim Fsys As New FileSystemObject
Dim Tstream As TextStream
Set Tstream = Fsys.CreateTextFile(outputTextFile)

Dim I As Integer
Dim pPoint As IPoint
Dim sOutputString As String

'遍历各要素,输出其坐标点
DO Unitl pFeature Is Nothing
I = I + 1
Set pPoint = pFeature.Shape
sOutputString = I & "," & pPoint.X & "," & pPoint.Y
Tstream WriteLine(sOutputString)
Set pFeature = pFCursor.NextFeature
Loop
End Function
End Sub
(注:那个DO循环里的Unitl显示红色,好像不能识别)

我只懂一点点编程,我把程序里的那个outputTextFile改成"D:/temp.txt"但怎么传递参数给inputLayer呢?还有这段代码是不是要加头文件什么的,不然创建文本的代码是不是不能运行,我对VB不了解对AO更是没接触过.

希望高人指点我一下,最好过程能详细点.导出来的文件如果是EXcel表最好.谢谢!!!!!