Dim rtbLines2() As String = WTEdit.RichTextBox1.Lines
        Dim redi As Integer
        For redi = 0 To rtbLines2.GetUpperBound(0)
            If rtbLines2(redi).Contains("Achtung") Then
                WTEdit.RichTextBox1.SelectionStart = _
                  WTEdit.RichTextBox1.GetFirstCharIndexFromLine(redi)
                WTEdit.RichTextBox1.SelectionLength = rtbLines2(redi).Length
                WTEdit.RichTextBox1.SelectionColor = Color.Red
                WTEdit.RichTextBox1.SelectionFont = New Font( _
                  WTEdit.RichTextBox1.Font, FontStyle.Bold)
            End If
        Next
    End Sub