文字列にてvbCrLfにてSplitする際は以下の様に行う


'txtHoge.textを改行コード（CrLf）毎に配列に格納する
Dim aryLine As String()
aryLine = Split(txtHoge.Text, vbCrLf)


'※以下誤った例
'通常のSplitの方法を行うとCrにてSplitされ、Lfが残る

Dim aryLine As String()
aryLine = txtHoge.Text.Split(vbCrLf)


<txtHoge.Text>
11111(改行コード:CrLf)
22222(改行コード:CrLf)
33333(改行コード:CrLf)

結果
<aryLine>
Index0 : 11111
Index1 : (改行コード：Lf)22222
Index2 : (改行コード：Lf)33333
Index3 : (改行コード：Lf)

CrにてSplitされるのでLfが次行の頭についてしまう