文本文件换行用的是chr(10)(换行符），没有回车，line input不好使了，怎么办？

Question

读入一个文本文件，换行时用的是换行符，没有回车，用line input后，把整个文件全读入了，各位有什么好方法让我逐行读入？

Answer 1

有一方法比较简单:
读取所有文本到strAll变量中,用 replace(strall,chr(10),vbcrlf)
把STRALL写后原来的文本,再用line input来读

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim strTmp As String
    
    Open "C:\time.txt" For Input As #1
    While Not EOF(1)
        Input #1, strTmp
        MsgBox strTmp
    Wend
    Close #1
End Sub