Hello Guys,
I cant make it work, i want when the set text is received by webbrowser which is from label1, then it PoPUP message, "SET TEXT IS FOUND". But it is not happening. Please help.
Code:
Private Sub Form_Load()
WebBrowser1.Navigate ("http://free.timeanddate.com/clock/i1wtsrdx/n2/fn5/fs28/tcddd/ftb/bas5/bat6/baceee/pa2")
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Dim ans As String
    ans = InputBox("TIME??", "", "6:04:22 AM")
    If ans = "" Then
        Label1.Caption = "No message"
    Else
        Label1.Caption = ans
    End If
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.Document.body.innerText = Label1.Caption Then
 MsgBox "SET TEXT IS FOUND"
 End If
End Sub