用VBA通过查找坐标的方法获取CAD中多行文本内容

知道该Autocad中该某多行文本的坐标，如何用VBA获得该文本的文字显示出来？
用下面的函数可以实行，其中 x = 230#: y = 542#    '这是假定要显示的多行文本的坐标为（230，542）

Private Sub Test()

    Dim objEnt As AcadEntity
    Dim nCount As Long
    Dim i As Long
    Dim x, y As Double
    Dim minPoint As Variant
    Dim maxPoint As Variant
    Dim objText As AcadMText
   
    x = 230#: y = 542#    '假设为指定点
   
    nCount = ThisDrawing.ModelSpace.Count
    For i = 1 To nCount
        Set objEnt = ThisDrawing.ModelSpace.Item(i - 1)
        Call objEnt.GetBoundingBox(minPoint, maxPoint)
        Debug.Print "MinPoint:" & minPoint(0) & "   " & minPoint(1) & "    " & minPoint(2) & vbCr & "maxPoint:" & maxPoint(0) & "   " & maxPoint(1)
        
        If x >= minPoint(0) And y >= minPoint(1) And x <= maxPoint(0) And y <= maxPoint(1) Then
            If objEnt.ObjectName = "AcDbMText" Then
                Set objText = objEnt
                MsgBox objText.TextString
            End If
        End If
    Next
End Sub