This should do something like what you need. Though I have made the assumption your file is Tab delimited. It reads the file in using the FileSystemObject for which you'll need to add a reference to the Microsoft Scripting Runtime , go Tools > References and make sure it is checked. I've commented in where it is looking for specific column numbers but it should give you an idea of what to do.
Dim fs As New FileSystemObject
Dim ts As TextStream
i = 0
Set ts = fs.OpenTextFile("file.csv")
While Not ts.AtEndOfStream
textline = Split(ts.ReadLine, Chr(9))
Range("a1").Offset(i).Resize(1, 6).Value = textline 'Assumes there are six columns in the file
NewCol1 = Split(textline(2), ",") 'Split the 3rd word into an array (2 as it's zero based)
NewCol2 = Split(textline(4), ",") 'Split the 5rd word into an array
RowCount1 = UBound(NewCol1)
RowCount2 = UBound(NewCol2)
MaxCount = IIf(RowCount1 > RowCount2, RowCount1, RowCount2) 'Find the largest of the two row counters as we need to move down this many rows
If RowCount1 > 0 Then Range("a1").Offset(i, 2).Resize(RowCount1 + 1, 1) = WorksheetFunction.Transpose(NewCol1) 'Put the array vertically in the 3rd column
If RowCount2 > 0 Then Range("a1").Offset(i, 4).Resize(RowCount2 + 1, 1) = WorksheetFunction.Transpose(NewCol2) 'Put the array vertically in the 5th column (4 along from cell A1)
i = i + MaxCount + 1
Wend