<code><font color=green>' Genre ausfiltern</font>
Public Function Filter_Genre(ByVal sLine As String) As String
  Dim lPos As Long
 
  lPos = InStr(sLine, "- Genre: ")
  If lPos > 0 Then
    sLine = Mid$(sLine, lPos + 9)
    lPos = InStr(sLine, " - ")
    If lPos > 0 Then
      Filter_Genre = Left$(sLine, lPos - 1)
    End If
  End If
End Function</code>