참고

Dim url, xmlhttp, html, titleText

url = "https://itsp.tistory.com/"

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlhttp.Open "GET", url, False
xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64)"
xmlhttp.Send

If xmlhttp.Status = 200 Then
    html = xmlhttp.responseText

    ' 대상 링크 태그 찾기
    Dim startTag, endTag, startPos, endPos
    startTag = "<a href=""https://itsp.tistory.com/"">"
    endTag = "</a>"

    startPos = InStr(html, startTag)
    If startPos > 0 Then
        startPos = startPos + Len(startTag)
        endPos = InStr(startPos, html, endTag)
        If endPos > startPos Then
            titleText = Mid(html, startPos, endPos - startPos)
            MsgBox "링크 텍스트: " & titleText
        Else
            MsgBox "종료 태그를 찾을 수 없습니다."
        End If
    Else
        MsgBox "시작 태그를 찾을 수 없습니다."
    End If
Else
    MsgBox "HTTP 오류: " & xmlhttp.Status
End If