Tsxtbox1 in Textbox2 de değiştirilmesi

[Mesafe]

TextBox1 deki rakamın yedinci ve onüçüncü rakamlardan sonraki sıfırlarının ve son rakamı olmadan Textbox2 de çıkması sağlanabilir mi ?

 

[Ziynettin]

Merhaba,

Private Sub TextBox1_Change()
TextBox2 = Left(TextBox1, 7) & Mid(TextBox1, 9, 5) & Mid(TextBox1, 15, 4)
End Sub

 

[Mesafe]

Çok teşekkür ederim.