宿題とか手伝えます

キーワードを入力させて、その数を指定したファイルから検索し、その数を出力するプログラムを作ろうとしています。

Text1にキーワードを読み込ませて、
指定したファイルをLabel1に出力させています。
そして下のものが実行ボタンの中身です。

・・・・しかしクラッシュしてしまいます。

手直し、助言等いただきたく書き込みします。
ド素人ですので、質問内容に至らない点があるかもしれませんがご了承願います。

よろしくお願いします。

Private Sub Command1_Click()
On Error GoTo Err_Command1
Dim FileName As String

FileName = Label2
kensaku = Text2
k = 0
j = 0

Open FileName For Input As #1

Dim str As String
str1 = FireName1

Dim i As Integer
Do Until EOF(1)
i = InStr([j], str1, kensaku)
If i <> 0 Then
k = k + 1
j = i + 1
End If
Loop

Text3 = i

Close #1

Exit Sub

Err_Command1:
MsgBox Err.Description

End Sub