You can use the webbrowser control and use a loop with something like this:

Code:
For r = 0 To webbrowser.Document.Forms(Form).length - 1
   If webbrowser.Document.Forms(form)(r).Name = "q" Then
      webbrowser.Document.Forms(form)(r).Value = "Whatever"
   End If
Next