[求助]：怎样才能实现此文件的生成?

gps

我本想生成一公路工程地面线文件,格式如下
320
2,0.5,2,2
4,0,0,1,1,0
.......
第一行为桩号,直接输入
第二、三行分别为左右侧各点相对于前一点的坐标差值，原打算按点击左右侧地面线（复曲线）后按曲线节点坐标计算，但对本人初学VBA太困难，现用手工捕捉节点生成方法，第二行数据生起了，但第三数据计算时出错，我把出错步附如下，请老大指定为谢
Sub bb()
Dim sp As Variant
Dim h1 As String
5 On Error GoTo 10: sp = ThisDrawing.Utility.GetPoint(, h1)
GoTo 5
10 GoTo 5
End Sub
第4行用鼠标右键进入第6行进行第二次循环,但再一次用鼠标右键跳出第二次循环时提示"用户输入的是关键字"的错误,如图下图,我要怎样修改?谢谢

tigersapce

Sub bbb()
Dim sp As Variant
Dim h1 As String
h5:
On Error GoTo 10: sp = ThisDrawing.Utility.GetPoint(, h1)
MsgBox sp(0)
GoTo h5
10 GoTo h5
End Sub
行号不能是数字吧.

雪山飞狐(lzh)

用while循环,不要用Goto,老师教过的:)