• Home
 · 
• Custom Controls/Forms/Menus
 · 
• format phone number

format phone number

format phone number

Rate format phone number

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    'in the button click event put this code.
    Text1.Text = "8002622823"   ' format it like (800)262-2823
    
    Dim temp1 As String
      
     temp1 = "("
     temp1 = temp1 & Left(Text1.Text, 3)
     temp1 = temp1 & ")"
     temp1 = temp1 & Mid(Text1.Text, 4, 3)
     temp1 = temp1 & "-"
     temp1 = temp1 & Right(Text1.Text, 4)
     Text2.Text = temp1   'display the result