Dim mystring As String = "aaaa" & vbCrLf & "bbbb" & vbCrLf & "cccc"
 
Dim crlf As String() = {vbCrLf}
Dim parts() As String = mystring.Split(crlf, _
  StringSplitOptions.RemoveEmptyEntries)
'---> parts(0) = "aaaa"       parts(1) = "bbbb"      parts(2) = "cccc"
 
Dim cr As String() = {vbCr}
Dim parts2() As String = mystring.Split(cr, _
  StringSplitOptions.RemoveEmptyEntries)
'---> parts2(0) = "aaaa"       parts2(1) = " bbbb"      parts2(2) = " cccc"