VBプログラマ質問スレ(6.0以前) Part38

VB6の初心者的質問です。以下のようなコードを記述しました。

(MainFrom)
Private Sub cmdNURUPO_Click()

Dim ぬるぽ as string: ぬるぽ=txtNURUPO.Text
Call sub_OpenFile(ぬるぽ)

End Sub

(標準モジュール)
Sub sub_OpenFile(FileName as string)

Open FileName For Input As #1
    For I = 1 To 10
        Input #1, tempX(I)
    Next I
    For I = 1 To 10
        Input #1, tempZ(I)
    Next I
Close #1

End Sub

(続く)