One way to get the data from each line is to use Line Input instead of Input to get the whole line and then use split to load into an array

Dim data() As String

Line Input #FileNum, buffer
data() = Split(buffer, ",") 'split text at ","

data(0) will be the first part of the line, data(1) the next etc up to data(4) in your case