Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Private Sub txtWorkPhone_AfterUpdate() txtWorkPhone = Trim(txtWorkPhone) Call Phone_Validation(txtWorkPhone) End Sub Private Sub Phone_Validation(txtPhoneNumber) If Left(txtPhoneNumber, 1) < 2 Then MsgBox ("Area Code Cannot Begin With Zero Or One") Else If Mid(txtPhoneNumber, 4, 1) < 2 Then MsgBox ("Telephone Prefix Cannot Begin With Zero Or One") End If End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.