Dim MyText as String = "bla bla" + vbCrLf + "more blabla" + vbCrLf +"stop blabla"
dim s() as String = MyText.split(vbCrLf)
You expect to get s(1)="more blabla" but you will get CrLf + 'more blabla'
The text got split BUT you also got a CrLf in the splits.
To avoid this Replace vbCrLf with
Dim CrLf() as char = {vbCr,vbLf}
So the split commando will bedim s() as String = MyText.split(CrLf)
and now s(1) will be 'more blabla'
OR
Do as 'Anonymous' pointed out in the comments:
Dim s() As String = MyText.Split(New String() {vbCrLf}, StringSplitOptions.None)