заполнить нужное поле на сайте через элемент управления WebBrowser на визуал бейсик?
нашел

Подключаем библиотеку "Microsoft HTML Object Library".
Private objDoc As MSHTML.HTMLDocument

Private Sub Form_Load()
WebBrowser1.Navigate "www.ya.ru"

Do While WebBrowser1.Busy
DoEvents
Loop

Set objDoc = WebBrowser1.Document
End Sub

Private Sub Command1_Click()
Dim objForm As MSHTML.HTMLFormElement

' web - название формы.
Set objForm = objDoc.Forms.web
' text - название поля.
' Заполняем текстовое поле.
objForm.Text.Value = "sql.ru"
' Извлекаем данные из текстового поля.
MsgBox objForm.Text.Value
' Нажимаем кнопку "Найти".
objForm.submit
End Sub