RichTextBox2.Text = Replace(RichTextBox2.Text, "", vbNewLine)

        Dim name As String
        Dim i As Integer
        Dim inhalt As String
 
        OpenFileDialog1.ShowDialog()
        name = OpenFileDialog1.FileName
 
        RichTextBox1.LoadFile(name, RichTextBoxStreamType.PlainText)
 
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, _
          FontStyle.Regular)
        RichTextBox1.AppendText(Now & vbCrLf)
        RichTextBox1.Text = Replace(RichTextBox1.Text, "", vbNewLine)
        For i = 0 To RichTextBox1.Lines.Length - 1
 
            If RichTextBox1.Lines(i) <> "" Then inhalt = Replace( _
              RichTextBox1.Lines(i), "", " ") 'vbCrLf)
            If RichTextBox1.Lines(i) <> "" Then inhalt = Replace( _
            RichTextBox1.Lines(i), "", vbCr) 'vbCrLf)
            If RichTextBox1.Lines(i) <> "" Then inhalt = Replace( _
            RichTextBox1.Lines(i), " ", vbCr) 'vbCrLf)
 
            If Mid$(inhalt, 1, 2) = "Q:" Then RichTextBox2.SelectionFont = New _
              Font(RichTextBox2.Font, FontStyle.Bold) : RichTextBox2.AppendText( _
              Mid$(inhalt, 4, RichTextBox1.Lines(i).Length) + vbCrLf)
 
            If Mid$(inhalt, 1, 2) = "A:" Then RichTextBox2.SelectionFont = New _
              Font(RichTextBox2.Font, FontStyle.Regular) : _
              RichTextBox2.AppendText(Mid$(inhalt, 4, RichTextBox1.Lines( _
              i).Length) + vbCrLf)
 
        Next
 
'HIER NOCHMAL ALLES "O" Zeichen löschen, ABER DIE FORMATIERUNG IST WEG ;-(
 
     RichTextBox2.Text = Replace(RichTextBox2.Text, "", vbNewLine)