vb 2008 FileGet()函数如何使用？

VB.NET code:
Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim str() As String = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
Dim data(8)
TextBox1.Text = str(0)
FileSystem.FileOpen(1, str(0), OpenMode.Binary, OpenAccess.Read, OpenShare.LockReadWrite)
FileGet(1, data)
FileClose(1)
For i = 0 To 8
TextBox1.Text = TextBox1.Text & data(i)
Next i
End Sub


用断点调试，结果表明最后执行的语句是FileGet(1,data)，该句再往下就好像是用了Exit sub一样，全部没有执行

何解？大大们要救救我啊~~~~~~~~~~

---

streamreader如何使用？还望大大多多指点

---

而且我需要读入二进制数据而不是字符

---

http://blog.csdn.net/hahanan1987/archive/2009/03/05/3959469.aspx

---

我知道了，问题用binaryreader解决了。

但是还想了解一下，为什么VB 2008就不能用VB 6的语法了呢？函数既然存在却又使用不正常？非常困惑