请问这段字符处理的语句哪里不对，运行时怎么显示"无效的过程调用或参数

xsnowboy 2003-10-04 12:33:58

Private Sub Command1_Click()
Dim ofilename As String, nfilename As String
Dim ofilenum As Integer, nfilenum As Integer
Dim temp As String, tmpstr As String

ofilenum = FreeFile(1): nfilenum = FreeFile
Open App.Path + "\old.txt" For Input Access Read Lock Write As #ofilenum
Open App.Path + "\new.txt" For Output Access Write Lock Read Write As #nfilenum

Do While Not EOF(ofilenum)
Line Input #ofilenum, tmpstr
If Asc(tmpstr) >= 72 And Asc(tmpstr) <= 81 Then
'就asc出问题,tmpstr到asc这里就成空字符串了
Debug.Print tmpstr
End If
Loop

Close
Beep: Beep: Beep
End Sub

old.txt中的内容：
足球彩票第03026期投注结果

打印日期：03-9-16 软件提供:足彩缩水大师。http://www.wjhsoft.com
-------------------------------------------------------------------------------------
第1场: 博洛尼亚 vs 帕尔玛 3
第2场: 布雷西亚 vs 切沃 3
第3场: 尤文图斯 vs 恩波利 3 1
第4场: 拉齐奥 vs 莱切 3 1
第5场: 佩鲁贾 vs 锡耶纳 3 1
第6场: 雷吉纳 vs 桑普多利亚 3 1
第7场: 乌迪内斯 vs 罗马 3 1
第8场: 切尔西 vs 布莱克本 3 1
第9场: 埃弗顿 vs 利物浦 3
第10场: 曼彻斯特城队vs 阿森纳 3 1
第11场: 南安普顿 vs 曼彻斯特联队 3
第12场: 托特纳姆热刺vs 富勒姆 3 1 0
第13场: 狼队 vs 朴茨茅斯 3

复式投注共384注
采用复式缩水过滤后共384注,所需资金768元

第1单: 第2单: 第3单: 第4单:
333 333 333 3333 333 333 333 1303 333 333 313 1313 333 333 133 1333
333 333 333 3313 333 333 313 3333 333 333 313 1303 333 333 133 1313
333 333 333 3303 333 333 313 3313 333 333 133 3333 333 333 133 1303
333 333 333 1333 333 333 313 3303 333 333 133 3313 333 333 113 3333
333 333 333 1313 333 333 313 1333 333 333 133 3303 333 333 113 3313
第5单: 第6单: 第7单: 第8单:
333 333 113 3303 333 331 333 3313 333 331 313 3333 333 331 313 1303
333 333 113 1333 333 331 333 3303 333 331 313 3313 333 331 133 3333
333 333 113 1313 333 331 333 1333 333 331 313 3303 333 331 133 3313
333 333 113 1303 333 331 333 1313 333 331 313 1333 333 331 133 3303
333 331 333 3333 333 331 333 1303 333 331 313 1313 333 331 133 1333

...全文