Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dlg As New OpenFileDialog
        With dlg
            .Filter = "Richtext Dokumente (*.rtf)|*.rtf"    ' Nur RTF Datei 
            ' sichtbar
            .Multiselect = False                            ' Nur eine Datei 
            ' auswählen
            .InitialDirectory = Application.StartupPath     ' Startverzeichnis 
            ' festlegen
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.RichTextBox1.LoadFile(.FileName)
            End If
        End With
    End Sub