Code:

Private Sub Command1_Click()
    'Taster za parsiranje
    Dim Tekst As String
    Tekst = wWeb.Document.documentelement.innerhtml
    'u text1.text upisije rezultat
    Text1.Text = Trazi_Meta(LCase(Tekst))
End Sub

Private Sub Command2_Click()
    'Taster ucitavanje stranice na adresi text2.text
    wWeb.Navigate Text2.Text
End Sub

Private Sub Form_Load()
    wWeb.Navigate "http://www.google.com"
End Sub



Function Trazi_Meta(t As String) As String
    Dim Pocetak As Integer
    Dim Kraj As Integer
    Dim i As Integer
    Dim s As String
    i = 1
    Do
        Pocetak = InStr(i, t, "<meta ")
        If Pocetak > 0 Then
            Kraj = InStr(Pocetak, t, ">")
            s = s & Mid(t, Pocetak, Kraj - Pocetak + 1) & Chr(13) & Chr(10)
        End If
        i = Kraj
    Loop While Pocetak > 0
    Trazi_Meta = s
End Function