Private Function TextBereinigen(ByVal txt As String) As String
        Dim dict As New Dictionary(Of String, String)
 
        With dict
            .Add("è", "e")
            .Add("ä", "ae")
            ' ...
 
            For index As Integer = 0 To dict.Count - 1
                txt = txt.Replace(.Keys(index), .Values(index))
            Next
        End With
 
        Return txt
    End Function