Private Sub LoadKeywords()
        Dim xmlDoc As New XmlDocument
        Dim Node As XmlNode
 
        Dim Keywords As New ArrayList
 
        Dim stream As stream = GetStream("Keywords.xml")
        xmlDoc.Load(stream)

        ' Schlüsselwörter auslesen
        With xmlDoc.SelectSingleNode("descendant::Keywords")
            For Each Node In .SelectNodes("descendant::Keyword")
                Keywords.Add(Node.InnerText)
            Next
        End With
 
        ' "Speichert" die Schlüsselwörter.
        Keywords.Sort()
        strKeywords = Keywords.ToArray(GetType(String))
 
        ' Löscht die Liste
        Keywords.Clear()
 
        ' Zeichen vor einem Schlüssselwort
        With xmlDoc.SelectSingleNode("descendant::Chars")
            For Each Node In .SelectNodes("descendant::CharBefor")
                Dim Chr As String = Node.InnerText
                If Chr = "<NewLine>" Then
                    Chr = NewLine
                ElseIf Chr = "<Space>" Then
                    Chr = " "
                End If
                Keywords.Add(Chr)
            Next
        End With
 
        ' "Speichert" die Schlüsselwörter.
        Keywords.Sort()
        strCharsBefor = Keywords.ToArray(GetType(String))
 
        ' Löscht die Liste
        Keywords.Clear()
 
        ' Zeichen nach einem Schlüssselwort auslesen
        With xmlDoc.SelectSingleNode("descendant::Chars")
            For Each Node In .SelectNodes("descendant::CharAfter")
                Dim Chr As String = Node.InnerText
                If Chr = "<NewLine>" Then
                    Chr = NewLine
                ElseIf Chr = "<Space>" Then
                    Chr = " "
                End If
                Keywords.Add(Chr)
            Next
        End With
 
        ' "Speichert" die Schlüsselwörter.
        Keywords.Sort()
        strCharsAfter = Keywords.ToArray(GetType(String))

        stream.Close()
    End Sub