Get a substring of text, including the starting string and the ending string

Dim TextString As String = "<table><tr><td>Cell</td></tr></table>" Dim SubString As String = ExtractText(TextString, "<tr>", "</tr>") Private Function ExtractText(ByVal TextToSearch As String, ByVal StartText As String, ByVal EndText As String) As String If Not TextToSearch Like "*" & StartText & "*" & EndText & "*" Then Return "" Exit Function End If Dim StartingLocation As Integer = TextToSearch.IndexOf(StartText, System.StringComparison.OrdinalIgnoreCase) Dim EndingLocation As Integer = TextToSearch.IndexOf(EndText, StartingLocation + Len(StartText), System.StringComparison.OrdinalIgnoreCase) Dim ReturnString As String = TextToSearch.Substring(StartingLocation, EndingLocation - StartingLocation + Len(EndText)) Return ReturnString End Function