Finally, IT WORKS........... Thanks for your guide.
I only did a tiny modification in my code and it instantly worked. What I change is the declaration of FileStream, so now it looks like this:

Dim fs As FileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read)

The underlined words are all changes I've made to get it done. Thanks again, Tommy.......