VBA and Website Input and Search

Hi,

Does anyone see how to input the search text into the search form on this webpage?

Here is what I have so far:

Set ieApp = CreateObject("InternetExplorer.Application")
  ieApp.Navigate URLSearch
  ieApp.Visible = True

  ' Wait till IE refreshed before searching for the next term
    While ieApp.Busy = True: DoEvents: Wend
    Set ieDoc = ieApp.Document
    While ieDoc Is Nothing Or ieDoc.ReadyState <> "complete": DoEvents: Wend
  
    For Each SearchTerm In SearchTerms
      ' Wait till IE refreshed before searching for the next term
        While ieApp.Busy = True: DoEvents: Wend
        Set ieDoc = ieApp.Document
        While ieDoc Is Nothing Or ieDoc.ReadyState <> "complete": DoEvents: Wend
      ' Place search term in search box
        While Inputbox Is Nothing: Set Inputbox = ieDoc.getElementById("searchfield"): Wend
        Inputbox.Value = SearchTerm
      ' Click on the Search button
        While InputBtn Is Nothing: Set InputBtn = ieDoc.all("searchbutton"): Wend
        InputBtn.Click
      ' Wait till IE refreshed before searching for the next term
        While ieApp.Busy: DoEvents: Wend
      ' Reset objects for next web page
        Set ieDoc = Nothing
        Set InputBtn = Nothing
        Set Inputbox = Nothing
    Next SearchTerm
Exit Sub

I am attaching a txt file with the html script and a pic with the what the field looks like using FireFox's Inspect option.

Thanks.

abousetta