Sub openWebPage()
Dim IE As Object, inpS As MSHTML.IHTMLElementCollection
Dim el As MSHTML.IHTMLElement, cel As MSHTML.IHTMLTableCell
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "ССЫЛКА"
Do While IE.readyState <>  4 
DoEvents
Loop
Set inpS = IE.document.getElementsByTagName("input")
For Each el In inpS
    Debug.Print el.toString
    If el.ID = "некий нужный тег" Then
    el.Value = "Строка1"
    End If
    If el.Type = "submit" Then
    el.Click
    End If
Next el
txt = IE.document.body.innerHTML
Set el = Nothing
Set inpS = Nothing
MsgBox (txt)


End Sub

s = IE.LocationURL