حذف چند کلمه بعد از پیدا کردن نقطه در textbox

[rezayavari]

سلام
من می خواستم یک برنامه بنویسیم که یک سری اطلاعات توشpast بشه و وقتی یک دکمه رو میزنم یک سری اطلاعات که بعد از علامت نقطه هست حذف بشه یعنی

this is magic.this is my name
بعد از رسیدن به نقطه this is my name رو حذف کنه
طول رشته متغییر است
و تنها راه شناسایی رسیدن به علامت نقطه است
متشکر

[hamed_Arfaee]

سلام

کد:

Text2.text=(left(text1.text,instr(text1.text,".")))