dim zeile as integer
dim spalte as integer
dim line as string
dim feld(1)(3) as string 'entweder du weisst die anzahl der zeilen oder du
			 'machst vor Wend ein Redim feld(zeile)(3) as String
 
open <Dateipfad+Name> for Input as #1
zeile = 1
while not eof(1)
	line input #1, line
	while not instr(line, " ") ' " " ... anzahl der Leerzeichen zwischen Spalten
		i = i + 1
	wend
	spalte = 1
	feld(zeile)(spalte) = mid(line, 1, i)
	line = mid(line, i, len(line))
	while not instr(line, " ") ' " " ... anzahl der Leerzeichen zwischen Spalten
		i  = i + 1
	wend
	spalte = 2
	feld(zeile)(spalte) = mid(line, 1, i)
	spalte = 3
	feld(zeile)(spalte) = mid(line, i, len(line))
	zeile = zeile + 1
wend
Close  #1

Salut