Problemi funzione FileGet

[bvale]

Ciao,
Ho dei problemi con la funzione FileGet
Devo devo aprire un file, con questa funzione, ma il valore dell' arrey value mi ritorna sempre = 0
Ecco il codice:
Sapete dirmi perchè.

Dim fileName As String
Dim Lunghezza As Integer
Dim value() As Byte
Dim fileNumber As Integer

Lunghezza = FileLen(fileName)
ReDim value(Lunghezza - 1)

fileName = MyFile.Value
fileNumber = FileSystem.FreeFile()

FileSystem.FileOpen(fileNumber, fileName, OpenMode.Binary)
FileSystem.FileGet(fileNumber, value)
FileSystem.FileClose(fileNumber)