【VBA】 streamを使用して、エクセルシートに出力したい

Question

参考URLからお借りしました。
下記のコードをベースに、csvをエクセルシート上に出力したいです。
こちらのコードを利用すると、adReadLineのためセル"A1"に1行で出力になります。
元のCSVの形を崩さず出力する方法をご教示いただきたいです。
また、アクティブシートではなく可能であればSheet2に出力したいです

ub sample2()
　　Dim i As Long
　　Dim j As Long
　　Dim strList As String
　　Dim strSplit() As String
　　Dim adoSt As New ADODB.Stream
　　i = 1
　　With adoSt
　　　　.Type = adTypeText
　　　　.Charset = "UTF-8"
　　　　.Open
　　　　.LoadFromFile ("C:\test.txt")
　　　　Do While Not (.EOS)
　　　　　　strList = .ReadText(adReadLine)
　　　　　　strSplit = Split(strList, ",")
　　　　　　For j = LBound(strSplit) To UBound(strSplit)
　　　　　　　　Cells(i, j + 1) = strSplit(j)
　　　　　　Next
　　　　　　i = i + 1
　　　　Loop
　　　　.Close
　　End With
End Sub

1行ではなく、画像のように出力希望です

参考URL

Answer 1

Sub sample2()
    Dim i As Long
    Dim j As Long
    Dim strList As String
    Dim strSplit() As String
    Dim adoSt As New ADODB.Stream
    i = 1
    With adoSt
        .Type = adTypeText
        .Charset = "UTF-8"
        .LineSeparator = adLF
        .Open
        .LoadFromFile ("C:\test.txt")
        Do While Not (.EOS)
            strList = .ReadText(adReadLine)
            strSplit = Split(strList, ",")
            For j = LBound(strSplit) To UBound(strSplit)
                Worksheets("Sheet2").Cells(i, j + 1) = strSplit(j)
            Next
            i = i + 1
        Loop
        .Close
    End With
End Sub

Comments

[12356]

ご回答ありがとうございます。
無事に動きました！

もう一つだけお伺いしたいのですが、ダイアログを表示し、csvファイルを選択の際
strList = .ReadText(adReadLine)
で「パラメータが間違えています」とエラー表示になります。

csvのとき、又はダイアログからファイル選択時はまた違った書き方をするのでしょうか？

[jinoji]

ReadTextの書き方は特に変わらないと思いますので、どこか別の個所に原因があるのかもしれません。
もう一度コードを見直して、それでも原因が見つからなければ別の質問として該当コードを提示してはどうでしょう。

[dmg]

承知いたしました。
この度はありがとうございました！

恐れ入ります、携帯からベストアンサーに決定が致しかねますので後ほどベストアンサーにさせていただきます。