Shoutbox

Thanks that helped alot but im still getting errors

code:

---

Private Sub Form_Load()
WebBrowser1.Navigate "http://shoutbox.menthix.net/basicsearch.php"
End Sub

Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is WebBrowser1.object) Then
        While WebBrowser1.Busy
            DoEvents
        Wend
        If URL = "http://shoutbox.menthix.net/basicsearch.php" Then
            If InStr(WebBrowser1.Document.documentElement.outerHTML, "Keywords:") <> 0 Then
                WebBrowser1.Document.frames(0).Document.All("keywords").Value = "Help"
                WebBrowser1.Document.frames(0).Document.All("Username").Value = "michael_m91"
                WebBrowser1.Document.frames(0).Document.All("null").Click
            End If
        End If
    End If
    Exit Sub
End Sub

---

Trying to do a Msgplus search