Dim hf As Integer: hf = FreeFile
Open Environ("APPDATA") & "test.csv" For Input As #hf
SplitRow = Split(Input$(LOF(hf), #hf), vbNewLine)
Close #hf
For x = LBound(SplitRow) To UBound(SplitRow) - 1
SplitColumn = Split(SplitRow(x), ",")
c(x,1) = SplitColumn(0)
c(x,2) = SplitColumn(1)
c(x,3) = SplitColumn(2)
Nextcitovat