textbox tarih formatı geri dönüş

[osmanfenerli1907]

merhba
ben tel1 i aşağıdaki kodla formatlıyorum

Private Sub Tel1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(tel1.Text) >= 16 Then tel1 = Left(tel1, 16)
If Len(tel1.Text) < 10 Then
tel1 = Replace(tel1, " ", "")
Else
tel1.Text = Format(tel1, "0(###) ### ## ##")
End If
End Sub

tel1 e tekrar gelince formatsız haline nasıl geri gelebilir.yani ilk yazdığım telefon yazsın orda.

 

[meslan]

merha.

Private Sub tel1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
tel1.Text = Replace(Replace(Replace(tel1, "(", ""), " ", ""), ")", "")
End Sub

 

[osmanfenerli1907]

harikasınız