This is a simple function that I wrote that will return the text found between 2 strings.
VB Code:
  1. Public Function FindBetween(strContext As String, strStart As String, strEnd As String, Optional StartFrom As Long = 1) As String
  2. Dim strtPt As Long
  3. Dim ndPt As Long
  4.  
  5. If StartFrom = 0 Then
  6.     FindBetween = vbNullString
  7.     Exit Function
  8. End If
  9.  
  10. strtPt = InStr(StartFrom, strContext, strStart) + Len(strStart)
  11. ndPt = InStr(strtPt, strContext, strEnd) - strtPt
  12.  
  13. If ndPt = -strtPt Then
  14.     FindBetween = vbNullString
  15.     Exit Function
  16. End If
  17.  
  18. FindBetween = Trim$(Mid$(strContext, strtPt, ndPt))
  19. End Function
You can call it like this
VB Code:
  1. Dim Context As String, Result As String
  2. Context = "<b>Hello!</b>"
  3.  
  4. Result = FindBetween(Context, "<b>", "</b>")
  5. MsgBox Result
And Result will = "Hello!"