objIE.document.getElementById("id_here").Value = "Search This Text"

Sub InternetAutomation()

'Declaring and Setting Internet Explorer with Early Binding
Dim aExplorer As InternetExplorer
Set aExplorer = New InternetExplorer

'Set basic attributes of Internet Explorer and navigate to first webpage
With aExplorer
    .Visible = True
    .Navigate "www.google.com"
End With

'Wait while Internet Explorer is busy
Do While aExplorer.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop

'Search Parameters
aExplorer.Document.getElementById("1st - ib").Value = "Search This Text"

End Sub