Out of range hatası verıyor ?

[semira_]

Dim diotlevel(100, 100, 100)
For j = 1 To nofper
For i = 1 To nsales
For k = 1 To nofret(j, i)
For l = 1 To nofcomp
Input #1, oku
diotlevel(j, k, l) = oku
Next l
Next k