پاک کردن چند کاراکتر از آخر یک تکس باکس

چه کنم برای پاک کردن چند کاراکتر از آخر یک تکس باکس ؟؟

مثلا : ( پاک کردن 4 کاراکتر )

123456789 ==> 12345

خواهش می کنم سریع تر !!!!!!!!!!

ببین منظورت همینه !
یه تکست باکس با متن 123456789 رو فرمت بذار بعد یه کامند باتن با کلیک روی باتن متن تکست باکس میشه 12345

کد:

---


Private Sub Command1_Click()
Dim lenTextBox As Long
lenTextBox = Len(Text1.Text)
Text1.Text = Mid(Text1.Text, 1, lenTextBox - 4)
End Sub

---

نقل قول:

---

نوشته شده توسط __siavash__ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ببین منظورت همینه !
یه تکست باکس با متن 123456789 رو فرمت بذار بعد یه کامند باتن با کلیک روی باتن متن تکست باکس میشه 12345

کد:

---


Private Sub Command1_Click()
Dim lenTextBox As Long
lenTextBox = Len(Text1.Text)
Text1.Text = Mid(Text1.Text, 1, lenTextBox - 4)
End Sub

---

---

خیلی ممنون دقیقا همون چیزی بود که می خواستم ! ممنون !:46: