read a text file in vb.net

Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim LineIn As String
oRead = oFile.OpenText(“C:sample.txt”)
While oRead.Peek <> -1
 LineIn &= oRead.ReadLine()
End While
RichTextBox1.Text = LineIn
oRead.Close()