This tips shows how to use GetBetween to parse and extract a string between two strings. GetBetween returns the extracted string, if found.
Public Function GetBetween(ByRef sSearch As String, ByRef sStart As String, ByRef sStop As String, _ Optional ByRef lSearch As Long = 1) As String lSearch = InStr(lSearch, sSearch, sStart) If lSearch > 0 Then lSearch = lSearch + Len(sStart) Dim lTemp As Long lTemp = InStr(lSearch, sSearch, sStop) If lTemp > lSearch Then GetBetween = Mid$(sSearch, lSearch, lTemp - lSearch) End If End IfEnd Function