Open And Display

Imports System.IO ' Add At The Very Top

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        ofd.Title = "select your text file"
        ofd.ShowDialog()
        Dim sr As New StreamReader(ofd.FileName)
        ofd.FileName = sr.ReadToEnd
        Do
            RichTextBox1.Text = ofd.FileName
        Loop
        sr.Close()
    End Sub
End Class