Find Text Between Two Strings

Find Text Between Two Strings

This function is useful for returning a portion of a string between two points in the string. You could, for example, extract a range name returned by Excel found between parentheses:

 Function Between(sText As String, sStart As _	String, sEnd As String) As String	Dim lLeft As Long, lRight As Long	lLeft = InStr(sText, sStart) + (Len(sStart) - 1)	lRight = InStr(lLeft + 1, sText, sEnd)	If lRight > lLeft Then Between = _		Mid$(sText, lLeft + 1, ((lRight - 1) - lLeft))End Function

Note that it only works for the first occurrences of the start and stop delimiters.


Share the Post: