Indlæsning af data til en multicolumn listbox fra en txt.file

Jeg genoptager lige et spørgsmål fra sidste uge, her bad jeg om hjælp til indlæsning af data til en listbox med 8 columns, og fik følgende hjælp..
Dim iFileNum as Integer
Dim larIn
Dim strIn as string
iFilenum=Freefile

Open \"dinfil.txt\" For Input As iFilenum

While Not EOF(iFilenum)
  Line Input #iFilenum, strIn \'read row
  dinlistbox.AddItem strIn
Wend
Close iFilenum

Denne kodestump indlæser vel alle data med adresse i column 1, mit problem er at disse data skal indlæses i de enkelte columns, så jeg kan lave en summering i bunden af hver.