如何讀取字串中的 一行(編號：7101)

我宣告一字串變數,並寫入某些資料,資料中包含了換行字元 (Chr(13) + Chr(10))
現在,我想將這個字串利用迴圈逐行寫入陣列中,,要怎麼做呢?
For i = 0 to UBound(sArray())
Redim Preserve sArray(i)
　　sArray(i) = ......然後呢?? 要如何讀進 "一行" 字???
　　...
　　...
Next i