كيف اقوم بمسح نص معين موجود فى مكان فى الملف من بدايتة صعودا الى بداية الملف وترك باقى النص الموجود اسفلة

حدد مكان الكلمة بـ InStr !

لو ممكن حضرتك تدينى مثال يبقى كتر خيرك

Option Explicit
Dim strInput As String
Dim intPos As Integer
Private Const cStart As String = "Speed"

Private Sub Form_Load()
	strInput = "Need For Speed Most Wanted"
	intPos = InStr(strInput, cStart)

	MsgBox Trim$(Left$(strInput, intPos - 1))
End Sub