hmmm...looks like I missed that, and the intent, maybe some thisOption Explicit
Public Sub PointZAgain()
Dim varPoint As Variant
Dim varPick As Variant
Dim objDtext As AcadText
Dim dblEndPt(0 To 2) As Double
On Error GoTo BrokeDown
ThisDrawing.Utility.GetEntity objDtext, varPick, "Pick some text: "
varPoint = ThisDrawing.Utility.GetPoint(, "Pick a point: ")
dblEndPt(0) = objDtext.InsertionPoint(0)
dblEndPt(1) = objDtext.InsertionPoint(1)
dblEndPt(2) = varPoint(2)
objDtext.Move objDtext.InsertionPoint, dblEndPt
Bounce:
Exit Sub
BrokeDown:
Select Case Err.Number
Case 13
ThisDrawing.Utility.Prompt "That's not a piece of text" & vbCrLf
Err.Clear
Resume
Case Else
Debug.Print Err.Number
Debug.Print Err.Description
Err.Clear
MsgBox "Program fall down go boom!", vbCritical, "Ka-POW"
GoTo Bounce
End Select
End Sub