ひょっとして
For j = 1 To Xpixel
　　　　　Input #1, A(i, j)
　　Next
でエラーがおきるってこと？
読み込み回数を指定しているようだけど

そうだと仮定して書くけど
Do Until EOF(#1) = True
Input #1, A(i, j)
Loop
こういう風にやるもんだよ。