Dim fs As FileStream = File.Open(directory & filename & extension, _
            FileMode.Open, _
            FileAccess.Read, _
            FileShare.None)
                                                fs = File.Open(directory & _
                                                  filename & extension, _
                                                  FileMode.Open)
                                                Dim b(1024) As Byte
                                                Dim temp As UTF8Encoding = New _
                                                  UTF8Encoding(True)
                                                Do While fs.Read(b, 0, _
                                                b.Length) > 0
                                                    MsgBox(temp.GetString(b))
                                                Loop
                                                fs.Close()