>            Dim sr As New System.IO.StreamReader(stream)
>            Console.WriteLine(sr.ReadToEnd())
>            '閉じる
>            sr.Close()
>            stream.Close()
ここでファイルを閉じてしまっています。


> Dim Reader As IO.StreamReader　←エラー・または警告が出る
Dim Reader As new IO.StreamReader(ofd.OpenFile())
または
Dim Reader As new IO.StreamReader(ofd.FileName)