Permitir al usuario escoger un fichero para abrirlo

Private Sub Button2_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
 
    ' TÃtulo
    openFileDialog1.Title = "Cargar";
    ' Extensión por defecto
    openFileDialog1.DefaultExt = "txt";
    ' Filtro sobre los ficheros
    openFileDialog1.Filter = "Ficheros de texto (*.txt)|*.txt|Todos los ficheros (*.*)|*.*";
    openFileDialog1.FilterIndex = 1;
    ' abrimos cuadro de diálogo OpenFile
    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
        ' vaciamos el TextBox
        RichTextBox1.Text = String.Empty
        ' abrimos el fichero seleccionado
        ' su nombre está en openFileDialog1.FileName
        Dim sr As StreamReader = New StreamReader(OpenFileDialog1.OpenFile, Encoding.Default)
        Try
            Dim data As String = sr.ReadLine
            While Not (data Is Nothing)
                RichTextBox1.AppendText(data + _
                                        Convert.ToChar(13) + _
                                        Convert.ToChar(10))
                data = sr.ReadLine()
            End While
        Finally
            If Not (sr Is Nothing) Then
                sr.Close()
            End If
        End Try
    End If
 
End Sub