تقسيم رقم الهاتف أو اعادة ترتيبه

تم التوصل للحل

x= Mid(Text0, 1, 3) & Text2.Text & Mid(Text0, 4, 3) & Text2.Text & Mid(Text0, 7, 10)
'x= Mid(Text0, 1, 3) & Mid(Text0, 5, 3) & Mid(Text0, 9, 10)
Text1 = x

Private Sub Command1_Click()
End

End Sub

Private Sub Text1_Change()
	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

End Sub

جزاك الله خيرا أخى العزيز دائما نتعلم منك