Option Explicit
 
Private Sub Command1_Click()
  Dim sTitel As String
  sTitel = "Title = 'dBase' OR Title = 'vbBuch' OR Title = 'C++'"
  Call getTitleList(sTitel)
 
End Sub
 
Private Sub getTitleList(sString As String)
 
  Dim sDelimiter  As String
  Dim lDelLeng    As Long
  Dim lPos        As Long
  Dim lPos1       As Long
 
  sDelimiter = "Title = '"    ' Der delimiter, Identifyer oder wie auch immer
  lDelLeng = Len(sDelimiter)  ' die passende Länge
  ' Erste Vorkommen suchen
  lPos = InStr(1, sString, sDelimiter, vbTextCompare)
  Do Until lPos = 0
    ' das nächste vorkommen von "'" suchen
    lPos1 = InStr(lPos + lDelLeng, sString, "'", vbTextCompare)
    ' Nun alles zwischen (Pos + lDelLeng) und (lPos1 - (lPos + lDelLeng))
    ' in eine liste schreiben
    List1.AddItem Mid(sString, lPos + lDelLeng, lPos1 - (lPos + lDelLeng))
    ' nächstes Vorkommen suchen
    lPos = InStr(lPos1 + 1, sString, sDelimiter, vbTextCompare)
  Loop
End Sub