Sub x()
Dim arrDaten() As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\Deine.csv")
Do While objTextFile.AtEndOfStream <> True
If objTextFile.Line = 1 Then objTextFile.Skipline
strline = objTextFile.ReadLine
MsgBox strline
arrDaten = Split(strline, " ") 'Chr(9))
arrDaten(0) = Left(arrDaten(0), 2)
' verwendet nur die ersten sechs Ziffern des ersten Array-Elements
' zweites Array-Element ist arrDaten(1), drittes arrDaten(2), usw ...
MsgBox arrDaten(0)
'...
Loop
objTextFile.Close
End Sub