Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "xxxxx"
objIE.Visible = True
Set objCollection = objIE.document.getElementsByTagName("input")
    While i < objCollection.Length
        If objCollection(i).Name = "SearchText" Then
           objCollection(i).Value = "yyyyy"
        Else
            If objCollection(i).Type = "submit" And _
               objCollection(i).Name = "B1" Then
               Set objElement = objCollection(i)
            End If
        End If
    i = i + 1
    Wend
    objElement.Click
Set objCollection2 = objIE.document.getElementsByTagName("td")
tttt = objCollection2.item(25).innerHTML