<code><font color=#000099>Private</font> <font color=#000099>Function</font> _
  GetListofTitel(<font color=#000099>ByVal</font> sTitel <font _
  color=#000099>As</font> <font color=#000099>String</font>) <font _
  color=#000099>As</font> Variant
  <font color=#000099>Dim</font> tmpTitel <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> vErg <font color=#000099>As</font> Variant
  <font color=#000099>Dim</font> vRet() <font color=#000099>As</font> <font _
    color=#000099>String</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> n <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  tmpTitel = Replace(sTitel, "Title =", "") 'Eliminiert Titel =
  tmpTitel = Replace(tmpTitel, "Or", "") 'Eliminiert Of
  tmpTitel = Replace(tmpTitel, "''", "") 'Eliminiert ''
  tmpTitel = Replace(tmpTitel, " ", "") 'Eliminiert Space
 
  vErg = Split(tmpTitel, "'")
 
  <font color=#000099>For</font> I = 0 <font color=#000099>To</font> <font _
    color=#000099>UBound</font>(vErg)
    <font color=#000099>If</font> vErg(I) <> "" <font color=#000099>Then</font>
      <font color=#000099>ReDim</font> Preserve vRet(n)
      vRet(n) = vErg(I)
      n = n + 1
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Next</font>
 
  GetListofTitel = vRet
<font color=#000099>End</font> <font color=#000099>Function</font></code>