Private Sub getStopwordlistfromfile(stopwordfile As String)
        Dim i As Integer
        Dim buffer As String 'einzelnes Stopwort
 
        Stopwordlist.Clear
 
        Open stopwordfile For Input Lock Write As #1
 
        'Einlesen der Daten aus datei
        Do While Not EOF(1)
            Line Input #1, buffer
            'ignoriere Leerzeilen und Kommentare (Kommentare beginnen mit #)
            'damit  hat MMV die Möglichkeit auch eine Datei mit Kommentaren 
            ' getrennt für die Stopwörter zu verwenden
            If (buffer <> "" And Left(buffer, 1) <> "#") Then
                Stopwordlist.AddItem (buffer) 'Stopwort zu Stopwordlist 
                ' hinzufügen
            End If
        Loop
 
        Close #1    'datei schliessen
    End Sub