Read text file by VB.net

Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Input)

Do Until EOF(FileNum)
strTemp &= LineInput(FileNum) & vbNewLine
Loop

FileClose(FileNum)