[求助]：程序无法输入点

lichunling

Private Sub CommandButton1_Click()
End
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
Dim mtextobj As AcadMText
Dim point As Variant
Dim width As Double
Dim textstring As String
Dim prompt As String
textstring = TextBox1.Text
userform1.Hide
prompt = vbCrLf & "请输入技术要求的插入点："
point = ThisDrawing.Utility.GetPoint(, prompt)
width = 200
'在模型空间中创建文字对象
Set mtextobj = ThisDrawing.ModelSpace.AddMText(point, width, textstring)
ZoomAll
End Sub

这是我的 一段用对话框输入技术要求的程序，打算在lisp程序中调用这段宏，可是宏代码每次执行到"请输入技术要求的插入点："时，就提示点无效，自动退出了，请大家帮我看看问题到底出在哪里。另外把整个工程作为附件传上，大家可以下载。

gzmkshjsh

去掉语句
TextBox1.Text = ""
即可运行。