输出超出文本尾（代码）

Question

Open App.Path & "\2.txt" For Input As #1
 
 Do While Not EOF(1)  
   k = Input(44, #1)   
  
       i = i + 1
         Load Lbl1(i)
         With Lbl1(i)
                     .Left = 120
                     .Top = 735 * (i - 1) + 60 * i
                     .Visible = True
                     .Caption = RTrim(k)  
         End With
         
         Load Txt1(i)
         With Txt1(i)
                     .Left = 60
                     .Top = Lbl1(i).Top + Lbl1(i).Height + 165
                     .Visible = True
                     .Text = ""
         End With
         
   
 
  Loop
       Close #1
   
End Sub       我用line.input #1,k 
                   的时候没有错误   显示   “输出超出文本尾” 错误,      红色那句话 是错误地方，
        请高手们,,指教指教
   

Answer 1

最后一次input的时候，不够44个字符呗。。

Answer 2

Private Sub Form_Load()
Open App.Path & "\2.txt" For Input As #1Do While Not EOF(1)
L = LOF(1)
S = L Mod 44
S1 = Int(L / 44)
 
  If I < S1 Then
  X = 44
  Else
  X = S
  End If
       k = Input(X, #1)
      I = I + 1
      
        Load Lbl1(I)
        With Lbl1(I)
                    .Left = 120
                    .Top = 735 * (I - 1) + 60 * I
                    .Visible = True
                    .Caption = RTrim(k)
        End With
        
        Load Txt1(I)
        With Txt1(I)
                    .Left = 60
                    .Top = Lbl1(I).Top + Lbl1(I).Height + 165
                    .Visible = True
                    .Text = ""
        End With
        
    Loop
      Close #1
  
End Sub

Answer 3

 那个, 8楼的兄台    lof函数  返回一个 以 字节为单位.的值 
      而  我的 44 是 字符的个数为单位的.谢谢你了