For counter = 0 To crlfCounter
                work = arrayFileInhalt(counter)
                RichTextBox1.SelectedText = work
                If InStr(1, work, "MSG") Or InStr(1, work, "L920") > 0 Then
                    RichTextBox1.SelectionFont = New Font( _
                      RichTextBox1.SelectionFont, FontStyle.Bold)
                Else
                    RichTextBox1.SelectionFont = New Font( _
                      RichTextBox1.SelectionFont, FontStyle.Regular)
                End If
            Next counter