Vb. İle Linkler Yüklendiginde Formun Açılması

Kod:
Public Class Form1
Dim WebSayfasiYuklend As String

Private Sub wb1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles wb1.DocumentCompleted
    WebSayfasiYuklendi = wb1.Url.ToString
End Sub

Private Sub Giris_button_Click(sender As Object, e As EventArgs) Handles Giris_button.Click
  If WebSayfasiYuklendi = "memoryhackers.org"
      msgbox("memoryhackers üyesi olmak bi ayrıcalıktır")
  End If
End Sub
End Class