Public Sub ColorMark()
        Dim startindex As Integer = 0
        Dim cursorpos As Integer
        For j As Integer = 0 To arr.Length - 1
            While txEdit.Text.IndexOf(arr(j), startindex) >= 0
                cursorpos = txEdit.SelectionStart
                startindex = txEdit.Text.IndexOf(arr(j), startindex)
                txEdit.SelectionStart = startindex
                txEdit.SelectionLength = arr(j).Length
                txEdit.SelectionColor = Color.Blue
                txEdit.SelectionStart = cursorpos
                txEdit.SelectionLength = 0
                txEdit.SelectionColor = Color.Black
            End While
        Next
        Dim ad As Integer = 54
    End Sub
    Dim arr() As String = {"wörter", "sind", "das"}