文字列=1行とは限りません。

また文字列がString()ならループすれば良いでしょう。


Dim 文章 As String()

(略)

For Each 行 As String In 文章

(略)

Next