I'm trying to create a program that will validate phone numbers. I need to use strings and substring to tell if it is using the hyphens in the phone numbers. If it is not a validate phone number a message will show saying that it is not validate and why. If it is validate then it will show a message that is it.
use a form with one textbox, one label,one command button Code: Option Explicit Private Sub Command1_Click() Dim strTemp As Integer, strLen As String, x As Integer, strPhone As String strPhone = Text1.Text strLen = Len(strPhone) For x = 1 To strLen strTemp = Asc(Mid$(strPhone, x, 1)) If strTemp = 45 Then strTemp = 0 If strTemp < 48 Or strTemp > 57 Then Label1.Caption = "You must only use numbers" Else Label1.Caption = "Thank you " End If Next End Sub
I think other than hyphen (-) there are some other characters which are valid in phone numbers and they are plus (+) and brakets ( () ). +91-(348)-321654987 should be a valid phone number.
if you need thosejust add the follwing lines Code: If strTemp = 45 Then strTemp = 0 'for - If strTemp = 43 Then strTemp = 0 'for + If strTemp = 40 Then strTemp = 0 'for ( If strTemp = 41 Then strTemp = 0 'for )