heres the code i used for my ibuxer program just change the settings to yours.

Code:
Dim URL As String
Dim flags As Long
Dim targetframe As String
Dim PostData() As Byte
Dim headers As String
Dim cname As String
Dim cseparator As String * 1
Dim codes() As String
PostData = cname & "=" & codes(codey) & "&" & "source=12"
flags = 0
targetframe = ""
PostData = StrConv(PostData, vbFromUnicode)
WebBrowser1.Document.All("keywords").Value = codes(codey)
WebBrowser1.Document.All("source").Value = "12" ' this is a list
WebBrowser1.Document.All("Submit").Click