Проблема с содержимым webbrowser после POST - VB

Формулировка задачи:

Ребята ! Такая проблема ... Есть такое:

TargetFrame = ''
flags = 14
Headers = 'Content-Type: application/x-www-form-urlencoded' & vbCrLf
 
' Подготавливаю данные для POST
 
PostData = '.... Что то .....'
PostData = StrConv(PostData, vbFromUnicode)
 
' Отсылаю
WebBrowser1.Navigate 'http://куда-то', flags, TargetFrame, PostData, Headers
 
' Жду завершения
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
 
' Загрузилась страница с содержанием 1
 
If InStr(1, Me.WebBrowser1.Document.body.innerhtml, 'ищем submit') > 0 Then
        ' Допустим нашли - жмем
    me.WebBrowser1.Document.Forms(0).submit
End If
 
' Жду завершения
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
 
' Загрузилась страница с содержанием 2

Но .... В содержимом Me.WebBrowser1.Document.body.innerhtml осталось содержимое 1-й страницы ! А надо проанализировать на наличие определенного текста для дальнейших действий Помогите пожалуйста !

Решение задачи: «Проблема с содержимым webbrowser после POST»

textual
                            Листинг программы 
                        

                            Dim FL As Boolean
 
Private Sub Command1_Click()
 
targetframe = ''
flags = 14
headers = 'Content-Type: application/x-www-form-urlencoded' & vbCrLf
 
PostData = '.... Что то .....'
PostData = StrConv(PostData, vbFromUnicode)
 
WebBrowser1.Navigate 'http://www.ya.ru', flags, targetframe, PostData, headers
 
FL = False
 
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
If Not FL Then
    If InStr(1, Me.WebBrowser1.Document.body.innerhtml, 'Дизайн') > 0 Then
        FL = True
        Me.WebBrowser1.Document.Forms(0).submit
    End If
Else
    MsgBox Me.WebBrowser1.Document.body.innerhtml
End If
 
End Sub
                        