Dim F As Integer
Dim sLine As String
Dim sData() As String
 
F = FreeFile
Open "Datei.csv" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  sData = Split(sLine, ";")
  ' sData(0) = 1. Element der Datenzeile
  ' sData(1) = 2. Element der Datenzeile
  ' usw.
 
Wend
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de