[John B]

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.

[jwshepherd]

use a form with one textbox, one label,one command button

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

[shabbir]

Quote:

Originally Posted by John B

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.

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.

[jwshepherd]

if you need thosejust add the follwing lines

   
    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 )