not much time so I hope I get this right... I use something like this....
Public Sub ReadMyFile()
Dim inputfile As String
inputfile = "C:\myfile.txt"
Dim DataFile As Integer
DataFile = FreeFile
Dim Dataline As String
Open inputfile For Input As #DataFile
While Not EOF(DataFile)
Line Input #DataFile, Dataline
' now you've got the line so do your stuff here
Wend
Close #DataFile
end sub
you may want to look at the replace method to replace the commas in your line with semi colons, or vice versa. Then you can use the split function to return an array from your line
this will replace semi-colons with commas
replace(dataline,";",",",,,vbBinaryCompare)
and then use that separator to split your line into the array
dim LineArray as variant
LineArray =Split(dataline,",",,vbBinaryCompare)