Out of Range Hatası verıyor text dosyasında ?

[semira_]

Yazdıgım kod budur :
Input #1, oku
Input #1, oku
Input #1, oku
Input #1, oku
For j = 1 To nofper
For k = 1 To nsales
For i = 1 To nofcomp
Input #1, oku
Input #1, oku
Input #1, oku
newpdem(j, k, i) = oku
Next i
Next k
Next j




Exceldeki dosyam ise budur :

New_Part_Demands
nofper nsales (nofcomp)
1 1 26 41 23 44 55
1 2 49 33 28 44 18
1 3 21 27 26 44 29
1 4 64 46 42 36 22
1 5 30 18 25 57 19
2 1 28 30 38 35 51
2 2 17 32 42 34 32


Toplam 5 tane nofcomp var ve yanyana yazılıdır.

Out of range hatası verıyor anlamış degilim