acadapp.ActiveDocument.Utility.Getreal（）问题

linboying

我在使用CAD地形图时，要用到图上很多实体的标高，并且要判断这些标高的合理性，认为合理的标高直接采用，认为不合理的采取人工输入合理值，然后将这些标高数据组成一个文本文件，为此搞个小程序，其他环节都没问题，但是执行到这样的语句时：acadapp.ActiveDocument.Utility.Getreal(“请输入新值：”)，第一次输入数据要等待很久才在命令栏看到刚刚输入的数据，之后再执行该语句时输入数据就正常了，大神们能指点下这是什么问题啊？
........前面略
Set myut = adocument.Utility
myut.GetEntity retent, pnt, "请选择实体："
k=k+1
Set blkRefObj = retent
If blkRefObj.EntityName <> "AcDbBlockReference" Then
    pnt(2) = retent.Elevation
Else
    attvars = blkRefObj.GetAttributes
pnt0 = blkRefObj.InsertionPoint
pnt(0) = pnt0(0)
pnt(1) = pnt0(1)
pnt(2) = pnt0(2)
End If
htr01 = "第" & k & "点" & "高程值为" & h001 & ",新值（默认Enter）="
在上面一句停顿很久，好像卡机的样子，而且命令栏显示数据后，按回车又显示一次，比如输入“85”，回车后会显示“8585”
h = myut.Getreal(htr01)
If IsNumeric(h) = False Then
h = pnt(2)
End If