بازگرداندن چندکاراکتر بعد از رشته جستجو شده؟

[mamad_Datcom]

سلام دوستان
میخواستم بدونم که چطور میتونم یه رشته رو داخل یه تکست باکس جستوجو کنم و چند تا کاراکتر بعد از اون رشته رو داخل یه متغیر دیگه ذخیره کنم.

ببینید، من یه تکست باکس دارم که داخلش چند خط متن هستش.
حالا من میخوام یه کلمه رو داخل این تکس باکس پیدا کنم و xتا کارکتر بعد از اون کلمه رو بازگردونم و داخل یه متغیر ذخیرش کنم.
هرکاری کردم، نتونستم.:عصبانی++:
ممنون میشم از دوستان اگه کمکم کنند. :لبخندساده:

Thanks

[parselearn]

Private Sub Command1_Click()
x = Text1.Text
s = Text2.Text
n = InStr(1, x, s)
y = Right(x, Len(x) - n - (Len(s) - 1))
Print y
End Sub