VB vpršanje za kodo

 Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If TextBox1.Text = ("1234567890") Then
            TextBox1.ForeColor = Color.Green
            intAnswer = MsgBox("Uspešno ste se prijavili! Kliknite Ok za nadaljevanje.", vbOKCancel, "Prijava uspešna")
            If intAnswer = vbOK Then
                System.Diagnostics.Process.Start("http://www.facebook.com")
                Me.Close()
            Else
                Me.Close()
            End If
            MsgBox("Uspešno ste se prijavili!", MsgBoxStyle.OkCancel)
            Me.Close()
        End If
        If Not TextBox1.Text = ("1234567890") Then
            TextBox1.ForeColor = Color.Red
            MsgBox("Geslo je napačno!")
            TextBox1.Clear()
        End If
    End Sub