Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.InitialDirectory = "c:\Documente und Einstellungen\"
        openFileDialog1.Filter = "RTF files (*.rtf)|*.rtf|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.LoadFile(openFileDialog1.FileName, _
              RichTextBoxStreamType.PlainText)
        End If