VB 2010 OOP Lesson - Classes Intro [Email Validation]

gistfile1.vb

'Visual Basic Online Course - OOP
'OOP Lesson - Classes Intro
'Project : Email Validation
'Source : evry1.net/VBNet
Public Class Form1
   Private Sub BtnValid_Click(sender As System.Object, _
   e As System.EventArgs) Handles BtnValid.Click
   
      Dim X, Y As Integer
      X = TxtEmail.Text.IndexOf("@")
      If X >= 1 Then
         Y = TxtEmail.Text.IndexOf(".", X)
         If Y < 1 Then
            MsgBox("Invalid E-mail Address")
         End If
      Else
         MsgBox("Invalid E-mail Address")
      End If
   End Sub
   
End Class