Member Avatar for yineth888

i need to write a separate program (this program is not connected with my assignment) to validate e-mail, phone number, group, GPA


so far this is what i have...i need help please


Private Sub btnEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmail.Click
Dim Symbol1 As Integer
Dim Symbol2 As Integer
Dim TestString As String

TestString = txtData.Text
Symbol1 = InStr(TestString, "@")
Symbol2 = InStr(TestString, ".")


If (Symbol1 < Symbol2) Then
MsgBox("Valid E-mail Accepted")
Else
MsgBox("Please re-enter a valid e-mail address")
End If
End Sub

Private Sub btnPhone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhone.Click

Dim number As Integer

If txtData.Text.Length = 3 Then

txtData.Text = txtData.Text + "-"

End If

  • 2 Contributors
  • 1 Reply
  • 91 Views
  • 7 Hours Discussion Span
  • Latest Post Latest Post by debasisdas
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.