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

Private Sub Command1_Click()
Dim ofilename As String, nfilename As String
Dim ofilenum As Integer, nfilenum As Integer
Dim temp As String, tmpstr As Stringofilenum = 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
LoopClose
Beep: Beep: Beep
End Subold.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