VB.NET调用IE，并且等待

            Dim p As New Process
            '获得URL
            aURL = GetURL()
            '获得IE路径
            p.StartInfo.FileName = System.Environment.GetFolderPath( _
                Environment.SpecialFolder.ProgramFiles).Trim() _
                & "\Internet Explorer\IEXPLORE.EXE"
            p.StartInfo.Arguments = aDenURL
            '启动IE
            'p.Start(aDenURL)
            p.Start()
            '主程序开始等待IE结束
            p.WaitForExit()

另一种方法

Imports System.Threading    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim webobj As Object
        webobj = CreateObject("InternetExplorer.Application")

        With webobj
            .visible = True
            .Navigate2("http://www.google.co.jp/")
            Do While (.busy Or .readyState <> 4)
                Thread.Sleep(100)
            Loop
            .Document.f.q.Value = Me.TextBox1.Text
            .Document.f.btng.Click()
        End With
        MsgBox("completed.")
    End Sub