Dim fs As IO.FileStream = IO.File.Open(datei, IO.FileMode.Open, _
  IO.FileAccess.Read, IO.FileShare.ReadWrite)
Dim sr As New IO.StreamReader(fs)
Dim line As String
line = sr.ReadLine()
Do While Not IsNothing(line)
  If i = 1 Then
    strHeader = line.Split(",")
  End If
  strWerte = line.Split(",")
  i += 1
  line = sr.ReadLine()
Loop
fs.Close()