EXCEL VBAコミュのエクセルのマクロで検索結果を取り込みたい

エクセルのマクロを使用して
グーグル検索の所定のキーワードを取り込むようにしたのですが

処理としまして、プログラムを起動すると
ユーザーフォームが起動して、テキストボックスがあり
テキストボックス内に検索したいキーワードを入力して
ボタンをクリックしたら
メモ帳に自動でキーワードを書き込まれるようにしたいです。


出来れば、検索結果の一番下のほうに
「他のキーワード」と言うのがありまして
ダイエットで検索すると
「他のキーワード」が

ダイエット日記
ダイエット方法
食べ合わせダイエット
骨盤ダイエット
ダイエット レシピ
ダイエット 運動
どうぶつダイエット
ダイエット ブログ
バナナ ダイエット
炭水化物ダイエット

といったキーワードが出てくるのを
メモ帳に自動で書き出すのと
「他のキーワード」で検索すると
そこにも「他のキーワード」がありますので
それもメモ帳に書き出すようにしたいです。


１層目の「他のキーワード」を書き出すとこまでは
出来たのですが、２層目の「他のキーワード」を書き出す方法がわかりません。


それと、マクロを書いているエクセルファイルを開いたら
自動でマクロを起動できるように出来ますでしょうか？

わかりにくい説明かもしれませんが
よろしくお願いいたします。


作成したコードは以下になります。

Private Sub CommandButton1_Click()
Dim MyKeyWord As String
Dim objIE As Object
Dim i As Integer
Dim MyDir As String
Dim MyTxt As String
Dim j As Integer
Dim HisKeyWord As String
MyKeyWord = TextBox1.Text

'Internet Explorer の起動
Set objIE = CreateObject("InternetExplorer.Application")
With objIE

'キーワードの入力
.navigate "ht" & "tp://w" & "ww.google.com/"
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.forms.Item(0)(1).Value = MyKeyWord
.Document.forms.Item(0)(2).Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
For i = 0 To .Document.all.Length - 1
If .Document.all.Item(i).className = "e" Then Exit For
Next


'メモ帳の保存先フォルダとファイル名の指定
MyDir = Environ("USERPROFILE") & "\デスクトップ\"
MyTxt = "Google 他のキーワード.txt"

'メモ帳に自動で書き出す
Open MyDir & MyTxt For Append As #1
Print #1, "【キーワード】" & MyKeyWord
If i = .Document.all.Length Then
Print #1, "「他のキーワード」はございません。"
Else
For j = 1 To 10
HisKeyWord = .Document.all.Item(i + j * 2 + 5).outerText
If HisKeyWord = "12345678910次へ" Then Exit For
Print #1, HisKeyWord
Next
End If
Print #1, Chr(10)
Close #1

'Internet Explorer の終了と テキストボックス の初期化
.Quit
End With
Set objIE = Nothing
TextBox1.Text = ""
TextBox1.SetFocus
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub Label1_Click()

End Sub


よろしくお願いいたします。