はじめまして。
ご教授いただければ幸いです。

テキストファイルに保存した情報
をリストボックス、そっくり読み込みたいのですが
改行が含まれず、困ってます。
例えば…
samp.txtの中身
"おはよう"
"こんにちは"

Do Until EOF(1)
Line Input

これだと、"おはよう""こんにちは"
になります…
Do Until EOF(1)では、
改行コードを読み込んでくれないので
お願いします。

Do Until EOF(1)
という記述は改行コードになんら関係はありません。

テキストファイルの改行コードを調べてみるといいかも
しれません :-)

改行コード云々というくらいならば、
その改行コードが何になっているのかを調べてください。

まずはそこからです。

#まぁ、Lfになっているのでは？と思いますが

Line Input で読み込んだ１行のデータを tmp とすると
下記のようにすれば大抵はＯＫと思います。

tmp = RePlace(tmp,vbCr,vbCrLf)
tmp = RePlace(tmp,vbLf,vbCrLf)

> テキストファイルに保存した情報
> をリストボックス、そっくり読み込みたいのですが
> 改行が含まれず、困ってます。

　テキストファイルをリストボックスに表示するなら、
改行コードはいらないのでは？

Private Sub Command1_Click()
Dim strTextLine As String
    Open "c:\temp\samp.txt" For Input As #1     ' ファイルを開きます。
    Do While Not EOF(1)                         ' ファイルの終端までループを繰り返します。
        Line Input #1, strTextLine              ' 行を変数に読み込みます。
        List1.AddItem strTextLine               ' リストボックスに表示します。
    Loop
    Close #1
End Sub

皆様、色々ありがとうございました。
アドバイスのおかげで、解決に近づきました。
ありがとうございました！！