Dim oneStr$

        Const fname$ = "c:\test.txt"

        Dim sr As StreamReader = New StreamReader(fname, Encoding.Default)
        Do While sr.Peek >=  0 
            oneStr = sr.ReadLine()
        Loop

'Можно рид, но пока поток не закроешь, файл не удалишь
Sub Main()
	Dim FStreamRead As IO.StreamReader = FileIO.FileSystem.OpenTextFileReader("D:\TEST.txt", Text.Encoding.GetEncoding( 1251 ))
	Dim sFileBody As String = FStreamRead.ReadToEnd
	FStreamRead.Close()
	
	MsgBox(sFileBody)
End Sub

'Можно рид и врайт.
Sub Main()
	Dim sFileBody As String
	
	FileOpen( 1 , "D:\TEST.txt", OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
	sFileBody = InputString( 1 , LOF( 1 ))
	Console.ReadLine()
	FileClose( 1 )
	
	MsgBox(sFileBody)
End Sub

        Dim oneStr$

        Const fname$ = "c:\test.txt"

        Dim fs As New FileStream(fname, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
        Dim sr As StreamReader = New StreamReader(fs)
        Do While sr.Peek >=  0 
            oneStr = sr.ReadLine()
        Loop