新手运行出现“实时异常55，文件已打开”

新手求助：运行出现“实时错误55，文件已打开”
用open打开指定文件，对其中的数据判断，满足条件的重新创建文件或打开创建的文件添加，出现错误
Private Sub Cmdzhuaqu_Click()
Dim a$, m%, n%, b$, c$, d$, a1$, a2$

'检测txt文件内有多少条记录
  Open Txtlujing.Text For Input As #1
  m = 0
  While Not EOF(1)
  Input #1, a
  m = m + 1
  Wend
  Close #1

  b = "0"
  Open Txtlujing.Text For Input As #1
  Dim strPath$, strFileName$, strTmp$
  For n = 1 To m
  Line Input #1, a
  Call trim(a$, a1$)
  If a1 <> b Then
  b = a1
  strPath = App.Path & "\" '当前目录
  strTmp = b & "01.Txt" '文件名称
  strFileName = strPath & strTmp '指定路径名称
  Open "strFileName" For Output As #1
  Print #1, a
  GoTo 10
  Close #1
  Else

  Open "strFileName" For Append As #1
  Print #1, a ' "这里写入文件内容"
  GoTo 10
  Close #1
  End If
   
10 Next n
  Close #1

End Sub

Public Sub trim(a$, a1$)
  a1 = LTrim(Mid(a, 1, 5))
End Sub

------解决方案--------------------
Open Txtlujing.Text For Input As #1'这里已经使用了文件号1
Dim strPath$, strFileName$, strTmp$
For n = 1 To m
Line Input #1, a
Call trim(a$, a1$)
If a1 <> b Then
b = a1
strPath = App.Path & "\" '当前目录
strTmp = b & "01.Txt" '文件名称
strFileName = strPath & strTmp '指定路径名称
Open "strFileName" For Output As #1'这里就不能再使用文件号1了，可以改为2，这样下面的#1也都要改成一致，另外"strFileName"应该没有双引号吧。好好打打基础，由此看看你对vb读写文件操作还不了解，变量常量也不了解。
Print #1, a
GoTo 10
Close #1
Else

Open "strFileName" For Append As #1
Print #1, a ' "这里写入文件内容"
GoTo 10
Close #1
End If
 
10 Next n
Close #1