open in sub, get in function HELP!

[MotoMan_Yz400]

I have a sub that opens a file as binary.
In that sub i have a loop that will call a function, and the function looks inside file, and returns a value. Well its not working, the function doesnt know that the file is open. kinda like this:

Public Sub x()
    ....
    Open (file) for Binary As #1
    For i = 1 to 10
       arr(4) = Grabit(arr(1), arr(2), arr(3))
    Next
   Close #1
   ....
EndSub
Function Grabit(start, num, kind) as string
Select Case Kind
    Case "Word"
         Get #1, start, String
EndFunction

well its quick and dirty example, but you get the point. Is it possible?