ところで、まだまださんのコードでは、

     Dim txtRead As StreamReader = New StreamReader(file)

のところで
"型’StreamReader'が定義されていせん。
とでました。System.IOのインポートをし忘れてるようです。
つまり、

Dim txtRead As IO.StreamReader = New IO.StreamReader(file)

か、プロシージャ群の前に

Imports System.IO

とするようです。