執行階段錯誤 '458' , 開啟二進制檔案時發生的錯誤的問題(編號：4265)

我在使用開啟二進制檔案時發生的錯誤訊息如下:
執行階段錯誤 '458':
此變數使用了 Visual Basic 不支援的 Automation 類型
程式碼如下:
Dim h, B, LF&
h = FreeFile
Open "c:\aaa.txt" For Binary Access Read As h
B = 1
LF& = LOF(h)
Do Until EOF(h)
　　　　　If LF& - Loc(h) ＜= B Then　
　　　　　　　 B = LF& - Loc(h) + 1
　　　　　 End If
　　　　　　memP = Space$(B)
　　　　　　Get h, , memP　＜=====偵錯點位置