Textbox1 deki rakamın değiştirilerek Textbox2 de çıkması

[Mesafe]

Textbox1 deki 19 rakamdan oluşan sayının yedinci ve onüçüncü rakamlarından sonra sıfır eklenerek ve son rakamı çıkartılarak 20 rakamdan oluşan bir sayı olarak Textbox2 de çıkması sağlanabilir mi ?

 

[hımmmmmmmm]

Private Sub UserForm_Initialize()
TextBox1 = "1234567890123456789"
SIFIR
End Sub

Private Sub TextBox1_Change()
SIFIR
End Sub

Public Sub SIFIR()
   D = 1
   X = Len(TextBox1)
   If X >= 7 Then EKLE = Mid(TextBox1, 1, 7) + "0": D = 8
   If X >= 13 Then EKLE = EKLE + Mid(TextBox1, D, 6) + "0": D = 14
   TextBox2 = EKLE + Mid(TextBox1, D, X)
   If X >= 19 Then TextBox2 = Mid(TextBox2, 1, 20)
  ' Label1 = Len(TextBox2)  
End Sub

 

[Mesafe]

Hocam, çok teşekkür ederim.

 

[Mesafe]

Öncekinin tersi durum

Değerli hocam yukarıdaki konuda yardımcı olmuştunuz. Şimdi başka bir dosya içinde yukarıdakinin tersi bir durum lazım oldu. Yedinci ve onüçüncü rakamlardan sonraki sıfırların ve son rakam olmadan Textbox2 de çıkması gibi bir durum gerekti. Ben epey uğraştım ama yapamadım.
Tekrardan yardımınızı rica ediyorum.
Yeni dosya ilişikte.