Dim str As String = “words1 Start words Start Get This Text End End”
If str.Contains("Start") = True Then
Dim len As Integer = str.Length - (str.LastIndexOf("Start") + 5)
str = str.Substring(str.LastIndexOf("Start") + 5, len)
len = len - (str.IndexOf("End"))
str = str.Remove(str.IndexOf("End"), len)
End If