HTMLソースを獲得するためには？

---

WebBrowserによって表示されたホームページのHTMLソースを獲得したいと考えており、ネットで調べてそれらしいホームページとかも見つけたのですが、WebBrowserについてあまりわかっていないためにプログラムがわかりません。
もしよろしければサンプルソースを教えていただけないでしょうか？お願いします。

編集 削除

---

過去ログ検索『HTML』でどうぞ。
過去ログ検索『WebBrowser』でどうぞ。

編集 削除

---

自分で過去ログにて調べてみてプログラムを組んでみました。
以下がそうです。

Option Explicit

Dim IE                      As Object

Private Sub Command1_Click()
    IE.Visible = True
    SyncNavigate "http://www.google.ne.jp"
    IE.Document.All.Item("q").Value = Text1.Text
    Call IE.Document.Forms.Item(0).submit
End Sub

Private Sub Form_Load()
    Set IE = CreateObject("InternetExplorer.Application")
    'IE.Visible = True
    Text1.Text = "  "
End Sub

Sub SyncNavigate(ByVal URL As String)
    IE.Navigate URL
    Call LoopWhileBusy
End Sub

Sub LoopWhileBusy()
    Do
        DoEvents
    Loop While IE.Busy
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    IE.Quit
    End
End Sub

しかし、これでは最初のホームページのソースしか獲得できません。
検索結果のソースを獲得するにはどのようにすればいいのか、ご指摘してもらえませんか？

編集 削除

---

何の検索結果がどういった形で用意されるのか全く
伝わらないけどホームページアドレスがわかってる
ならそのページに移動すれば？
小学校で主語とか述語とか習わなかった？正しい
意味の伝わる日本語の文章で質問して下さい。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。