جدا کردن یک کلمه از یک متن طولانی

[_behnam_]

سلام دوستان . میخواستم از یک متن بزرگ یک یا چند کلمه رو بکشم بیرون . در ضمن کلمه تغییر میکنه. اما کلمات قبل و بدش تغیر نمیکنن.
اینجوریه تقریبا ::
1fse521da5wd4awd4500000000000salam0000001254156465 4544

1fse521da5wd4awd4500000000000man behnam hastam00000012541564654544
میخوام کلمه سلام و من بهنام هستم رو از متن های بالا بکشم بیرون.
در این متن هر دفعه به جای سلام یه کلمه دیگه میاد.
ممنون میشم اگه بتونید کمک کنید

[returnx]

فکر کنم این برنامه بدردت بخوره ، البته چون نتونستم تو Textbox شماره خط رو پیدا کنم در هایلایت کردن یکم مشکل داره...

[M.T.P]

اما کلمات قبل و بدش تغیر نمیکنن.
سلام تو دو موردی که گذاشتی عبارت های بعد از کلمه متفاوت هستند!!!! قبل از 4544 یه فاصله هست.
اگه همیشه کلمات پس و پیش جمله میانی یکی باشه اینطوری میشه:


Dim StrInput As String
Dim StrOutput As String
StrInput = "1fse521da5wd4awd4500000000000man behnam hastam00000012541564654544"
StrOutput = Mid(StrInput, 30, Len(StrInput) - 49)
MsgBox StrOutput