کپی کردن متن تا کلمه مورد نظر

[ebraeim 8]

سلام

یک متن در ادیت تکست  وجود دارد می خواهم برسی کند که اگر مثلا این کلمه (b4a)  در متن ادیت تکست وجود داشت تمامی متن قبل از آن کلمه را در لیبل کپی کند.

یا به این صورت بگویم که متن ادیت تکست را تا رسیدن به کلمه ی b4a در لیبل کپی کند و بعد از کلمه ی b4a کپی نکند.

[مجید آرتا 5,870]

Sub Button1_Click
	If edtInput.Text.Contains("b4a")  Then
		Label1.Text = edtInput.Text.SubString2(0, edtInput.Text.IndexOf("b4a"))
	End If
End Sub