Ошибка 'Expected array' на Debug.Print sData(i). - VB

Формулировка задачи:

Eto moy code:

fn = FreeFile
  Open test For Binary Lock Read As fn
  sData = LOF(fn)
  Get fn, , sData
    For i = 0 To UBound(sData)
    Debug.Print sData(i)
    Next
  Close fn
  sLines = Split(sData, vbCrLf)
  sData = vbNullString

Pochemy-to vudaet oshibky 'Expected array' na Debug.Print sData(i). Cho ne pravilno?

Решение задачи: «Ошибка 'Expected array' на Debug.Print sData(i).»

textual
                            Листинг программы 
                        

                            Dim i As Integer
Dim fn As Integer 
Dim sData() as Long
fn = FreeFile
Open test For Binary Lock Read As fn
Count = LOF(fn)
redim sData(Count)
Get fn, , sData 
For i = 0 To UBound(sData)
Debug.Print sData(i)
Next
                        