从网页视图源中搜索特定文本，并使用VBA宏复制完整的整行

Question

我正在尝试使用Excel VBA从网页视图源中获取一整行特定文本。我可以找到文本，但无法进入单元格。下面是我的VBA代码

Sub latlong()

Dim IE As Object
Dim html As HTMLDocument

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate Range("p2")

Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop

mes = IE.document.body.innerHTML
If InStr(mes, "var point") = 0 Then
     ActiveSheet.Range("q2").Value = "Not Found"
        Else
            ActiveSheet.Range("q2").Value = "Found"
       End If



 IE.Quit

    Set IE = Nothing

End Sub

我要复制整行的特定文本，下面是我尝试从网页中提取的示例文本

var point = new GLatLng(17.71697,083.30275);

我没有找到适合我问题的答案，请帮助我