Sub korup()

Dim XMLHTTP As Object
Dim URL, txt, outstr, txt2 As String
Dim n, k As Long

    
    URL = "http://fssp.gov.ru/"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", URL, False

XMLHTTP.SEND
If XMLHTTP.Status = 200 Then
    txt = XMLHTTP.responseText
Else
   Range("A1") = "Нет соединение с интернетом"
End If
    n = InStr(1, txt, "tel:")
    k = InStr(n, txt, "href")
    txt2 = Mid(txt, n, k - n)
    'outstr = Mid(txt2, 6, 15) ' с кодом города
    outstr = Mid(txt2, 12, 9) ' без кода города
Range("A1") = outstr
Set XMLHTTP = Nothing
End Sub