Sub Orion()

Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
Set IE = New InternetExplorerMedium

IE.Visible = True
IE.navigate "http://aporion.lear.com/Orion/Nodes/Default.aspx"

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

Set doc = IE.document

doc.getElementById("search").Value = ThisWorkbook.Sheets("Data").Range("A1").Value

IE.doc.getElementsbyClassName("sw-btn-t")(0)

span class="sw-btn-t"Search/span>