How to read .txt files in vb.net ?

Dim fileContents As String = String.Empty
Dim fPath As String = "D:\Ftest.txt"
Dim Sr As System.IO.StreamReader = System.IO.File.OpenText(fPath)
fileContents = Sr.ReadToEnd()
Sr.Close()