求教Line Input ＃的执行速度慢的问题，如何解决？

[bubbles110]

VBA部分程序如下：
Sub Pick_Up1()
Dim ss As String
Open "D：\xx.txt" For Input As #1 '打开文本文件
Line Input #1, ss1 <-------执行这一句的速度特别慢
End Sub
或者：
Do While Not EOF(1)
Line Input #1, ss1
Debug.Print ss1
Loop

文件xx.txt有4M大小。
开始运行时是正常的，应该和文件大小没关系。后来即使只执行上面一段，只要到"line input #"部分就特别慢。
请问是什么问题导致这种情况，如何修改程序。我需要从txt文件中读出每行的数据。
谢谢各位大侠～～

[zdingyun]

Sub Pick_Up1() 
    Dim ss As String '此处定义ss,后用ss1    Open "D：\xx.txt" For Input As #1   '打开文本文件 
    Line Input #1, ss1  ' <-------执行这一句的速度特别慢 
End Sub                '上句ss1未见定义

以下提供一段能正常运行的代码:

Option Explicit
Dim str As String
Dim l As Integer
Dim i As Integer
Dim j As Integer

Private Sub cmdOpen_Click()
Dim NextLine As String
Dim Txt_sj As String
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, NextLine
str = str & NextLine & Chr(13) & Chr(10)
Loop
Close

[砸死牛顿的苹果]

不该一行一行读取 直接一次性把内容读取到变量中 然后一次性的输出
Sub Pick_Up1()
Dim ss As String
open "D：\xx.txt" For Input As #1 '打开文本文件
ss=input(lof(1),1)
debug.print ss
close 1
End Sub

[bubbles110]

嗯～这么多热心的朋友
原来是我在操作时把文件中的回车全删掉了，line input变成了一次读4M的文件进来，而不是一次读一行。所以造成了特别慢。
这个问题解决了～
谢谢大家伙了～～希望继续交流：）