Sub test()
Dim fn As String, delim As String, temp As String, x
Dim i As Long, ii As Long, a() As String
fn = "c:\test.csv" '<- file path
delim = ";"
temp = CreateObject("Scripting.FileSytemObject").OpenTextFile(fn).ReadAll
x = Split(temp, vbCrLf)
ReDim a(1 To 10000, 1 To UBound(x) + 1)
For i = 0 To UBound(x)
y = Split(x(i), delim)
For ii = 0 To UBound(y) : a(ii + 1, i + 1) = y(ii) : Next
Next
ThisWorkbook.Sheets(1).Range("a1").Resize(10000, UBound(a,2)).Value = a
End Sub