我使用VB webbrowser控件做了个提交表单，表单提交给a.asp，如何成功返回“OK",否则返回"NO",但现在使用
Web1.Document.body.innerText 只能获取到当前网页的内容，不能获取到返回值,即“OK”或“NO"。但在Debug.Print "*" & Web1.Document.body.innerText & "*"处设置断点后，稍等一下就能正确获取，我想是网页的刷新问题，即我获取返回值时有点早，如何控制能正确获取返回网页的文本内容？请大家帮忙，代码如下

Function aa() As Boolean

aa = False

Web1.Document.body.innerHtml = "<form   method=post name=tjbb action="a.asp><textarea name='str'>" & Text1 _
& "</textarea>" & "<input type='text' name='bd' value='" & text2 _
& "'></form>"
Do Until Web1.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop

Web1.Document.Forms("tjbb").Submit

While Web1.Busy
    Application.DoEvents
Wend

Debug.Print "*" & Web1.Document.body.innerText & "*"


If Web1.Document.body.innerText = "OK" Then aa=true

End Function