以下のようなコードで複数行のテキストファイルを読み込んでます。

Dim Stm As Stream
Set Stm = New ADODB.Stream
Stm.Open
Stm.LoadFromFile "テキストファイルへのパス"

各行の文字列をStringの配列に移したいのですが、良い方法ありますでしょうか？
現在の私が分かる方法はDo Until Stm.EOSを使って地味にやる方法しかわかりません。
Streamという型を使ったことがなくて苦戦してます。

また、上記の読込をしてから総行数を取得する方法がありましたら教えていただきたいです

よかったら教えて下さい。よろしくお願い致します。

> 各行の文字列をStringの配列に移したいのですが、良い方法ありますでしょうか？

Dim Stm As Stream
Set Stm = New ADODB.Stream
Stm.Open
Stm.Charset = "Shift_JIS"   '文字コードの指定
Stm.LoadFromFile sPath      'テキストファイルへのパス
Dim lines() As String
lines = Split(Stm.ReadText(adReadAll), vbCrLf)   '改行(vbCrLf)で分割
Stm.Close

adReadAllというのがあるのですね。
すみません無知で。本当に助かりました
早いご回答ありがとうございました！