请教VB操作文件问题。

在一个窗体中我有这样一些代码：
Private Const filename1 As Integer = 3
Private Sub Form_Load()
    Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #filename1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Close #filename1
End Sub

Private Sub Image5_Click()
    Call inputtxt
End Sub

然后在一个模块里有这样一些代码：
Public Sub inputtxt()
    Dim strtxt As String
    Dim filename2 As Integer
    filename2 = 2
    Open App.Path & "\server.txt" For Input As #filename2
    strtxt = StrConv(InputB$(LOF(1), #filename2), vbUnicode)
    Close #filename2
End Sub


结果程序运行到红色这一句的时候出错了，百思不得其解，向各高人请教。

---

“strtxt = StrConv(InputB$(LOF(1), #filename2), vbUnicode)”：不明白你的意思
1. LOF(1)，代码中没有文件号1
2. 你到底想实现什么目的，StrConv(InputB$(LOF(1), #filename2), vbUnicode)是不能这样进行2个文件的操作的

---

打错分了，可不可改的啊。想加点分。