データに対するエラー表示

A 2006-02-15 23:43:23 No: 130247

コマンドボタンでファイルを参照してきてさらに
そのファイルを読み込んで検索をかけたいのですが、
「ファイルにこれ以上データがありません」というエラーが出てしまいます。
どうしたら回避できますか？
MSDNライブラリを読んだけれどよくわかりません。

Dim KEN As Integer
Dim ENG(100) As String
Dim JPN(100) As String

Private Sub cmd1_Click()
CommonDialog1.ShowOpen
file_url2.Text = CommonDialog1.FileName
KEN = 0
Open file_url2.Text For Input As #1
Do Until EOF(1)
KEN = KEN + 1
Input #1, ENG(KEN), JPN(KEN)
Loop
Close #1

End Sub

あん 2006-02-16 00:37:22 No: 130248

データに改行だけの行かフォーマットに合ってないものがありませんか？
読み込むデータに問題があると思います。