CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to return everything between 'string2' in 'string1'
Option Explicit
 
Public Function GetStringBetween(ByVal sExpression As String, ByVal sStartString As String, _
    ByVal sEndString As String) As String
    Dim iStartPos As Integer, iEndPos As Integer
    iStartPos = InStr(sExpression, sStartString)
    iEndPos = InStr(sExpression, sEndString)
    If iStartPos <> iEndPos And iStartPos <> 0 And iEndPos <> 0 Then
        GetStringBetween = Mid$(sExpression, iStartPos + Len(sStartString), iEndPos - 1)
    End If
End Function