VB.NET Basic認証のログイン後、URLの表示→特定のリンクをクリックしたい

■自己環境
Windows7 Home
IE8
Visual Studio Ultimate 2012
Microsoft Visual Basic 2012
Microsoft .NET Framework Version 4.5.5
Windowsフォームアプリケーション
※VB.NET初心者ですので出来ましたら
一般的な内容を省かず分かり易くご教授
いただけますと大変助かります。

■行いたいこと
Windowsフォームアプリケーションで
1)Basic認証?のHPにアクセス
2)ID、PASSを自動入力
3)特定のリンクをクリック ← 今ここで悩んでます。

■質問事項

1)初めに全体的な質問ですが、下記コードの
一連の処理(複数プロシージャ?)を
1つのまとまりとして繰り返し処理させたい場合は、
どのように記述すれば良いでしょうか?

 

2)次に下記コード内(★1)にクリック後のURLを表示させたい
箇所があるのですが、表示の方法が分かりません。
こちらもお教え頂けますと助かります。

 

3)最後に下記のような特定のリンクをクリック(★2)したいのですが
最下部のコード(★2)の「ログイン後の画面で特定のリンクをクリックする」に
記載されているコードで問題ないでしょうか?

■クリックしたいリンクの詳細について
・<li><a href=”new.html” title=”NEWページ”></a></li>
「リンク詳細」
リンク先は画像となっており、画像名がありません。
li class、a href それぞれの値(menu_cate、new.html)は、共にページ内では1つだけです。
上記のリンクをクリックしたいので、「menu_cate」、「new.html」、「NEWページ」のいずれかを
検知してクリックをしたいと思い下記を記述してみたのですがうまくいきません。

大変お恥ずかしいですがコードは知識が乏しく最初から
間違いだらけの記述と考えて頂くとスムーズかと存じます。

■一連の処理開始

Public Class Form1
Private myUrl As Uri

‘フォームに最初のURLをロードする
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.ScriptErrorsSuppressed = True
myUrl = New System.Uri(“http://hogehoge.com”)
WebBrowser1.Url = myUrl
End Sub

‘フォームへの最初のURLの読込完了を待つ?
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
Handles WebBrowser1.DocumentCompleted
If Not TypeName(sender) = “WebBrowser” Or e.Url <> myUrl Then
Exit Sub
End If

‘ログイン画面でID、パスワードを入力しsubmitボタンをクリックする
With WebBrowser1
.Document.GetElementById(“email”).SetAttribute(“Value”, “hogehoge”)
.Document.GetElementById(“password”).SetAttribute(“Value”, “hogehoge”)
.Document.All.GetElementsByName(“submit”)(0).InvokeMember(“click”)
End With

‘myUrl=”クリックしたら表示される URL”を記述し下記の処理に移行する
‘★1 ここに再度、最初のフォームに最初のURLをロードするするような記述を書けば良いのでしょうか?

‘★2 ログイン後の画面で特定のリンクをクリックする
Dim Element As HtmlElement = Nothing
For Each Element In WebBrowser1.Document.GetElementsByTagName(“A”)
If Element.InnerText = “new.html” Then
Element.InvokeMember(“Click”) ‘クリックする
Exit For
End If
Next

End Sub

■一連の処理終了

この内容が分かる方はいらっしゃいますでしょうか?
何卒、よろしくお願い致します。