>>15
俺にはこれが限界。

For Each r As String In 元の変数.Split(Microsoft.VisualBasic.ChrW(&HD))
    If r.Trim() = "" Then
        Exit For
    End If
    Dim row As DataRow = テーブル.NewRow()
    row.ItemArray = r.Split(","c)
    テーブル.Rows.Add(row)
Next

区切りが CR じゃなく CR+LF だと、最初の Split がもちっと面倒。