Variablen mit Visual Basic aus Textdatei auslesen

Hallo Leute,
ich habe ein VB-Problem beim Auslesen von großen Textdateien.

Diese Textdateien sind wie folgt aufgebaut:



Diese Textdateien haben mehrere Tausen Zeilen und ich möchte nur die Werte einiger weniger Variablen auslesen und je Datensatz eine Zeile in eine .csv-Datei schreiben.
Es sollen auch die Werte einer Variablen jeweils nur in eine Spalte geschrieben werden, das klappt auch, sieht dann ungefähr so aus:

Datensatz	Variable_1	Variable_5	...
Datensatz_eins	Wert_1	Wert_5	...
Datensatz_zwei	Wert_12	Wert_16	...

Alle Variablen sind vom Typ String und bis auf meine Problemvariable (hier mal "Variable_6" genannt) kommen sie je Datensatz nur ein Mal vor.

Das ganze frage ich mit einigen If-Anweisungen innerhalb einer Do-While-Schleife ab, die meine .csv-Datei jeweils um eine Spalte (Wert, ";") bzw. bei einem neuen Datensatz um eine Zeile ergänzen.


Hier ist das Problem:
Die Probleme bereitet mir nun Variable_6. Sie kommt innerhalb eines Datensatzes 0-4 mal mit verschiedenen Werten vor.
Insgesamt kann sie ca. 20 verschiedene Werte je Textdatei annehmen.
Nun ist es ja keine Problem sie einfach auszulesen: "Guck nach, ist sie da, hat sie nen Wert, wenn ja füg den Wert in die Zeile ein".

Allerdings sollen die Werte dieser Variablen nach Spalten sortiert werden. d.h. gleiche Werte sollen untereinander stehen.
Wenn kein Wert vorhanden ist soll das Feld leer bleiben, so ungefähr:

Datensatz	...	Variable_6	Variable_6	Variable_6	Variable_6
Datensatz_eins	...	Wert_1	Wert_5
Datensatz_zwei	...		Wert_5	Wert_7	Wert_8
Datensatz_drei	...	Wert_1		Wert_7	Wert_8
Datensatz_vier	...				Wert_8

Das sollte doch eigentlich über Arrays machbar sein. Mir fehlt da wahrscheinlich noch ne Menge Erfahrung, aber ich komme im Moment einfach nicht weiter.

Ich hoffe, dass ich meine Sorgen verständlich formuliert habe und bin für jede Idee dankbar.

Gruß,
Seppel

arrCheck = Array("Wert_1", "Wert_2", ..., "Wert_n")  

intIndex = -1
For i = 0 To UBound(arrCheck)
	If strGelesenerWert = arrCheck(i) Then
		intIndex = i
		Exit For
	End If
Next
If intIndex = -1 Then 'Nicht gefunden - weitere Vorgangsweise selbst festlegen  
strExtraDelims = String(intIndex, ";")  

objCSVFile.WriteLine strDatensatz & ";" & strWasWeissIch & ";" & strExtraDelims & strGelesenerWert  

strDelim = ";"  

arrCheck = Array("Wert_1", "Wert_2", "Wert_3", "Wert_4", "Wert_5", "Wert_6", "Wert_7")  
M = UBound(arrCheck)
Dim arrFields()

'Do Until objTextFile.AtEndOfStream  
'...  
'...  
'...  
	Redim arrFields(M)
	'Alle für "Variable_6" gefundenen Werte behandeln ...  
	For Each strEingelesenerWert In Array("Wert_3", "Wert_7", "Wert_9", "Wert_1")  
		blnFound = False
		For i = 0 To M
			If strEingelesenerWert = arrCheck(i) Then
				arrFields(i) = arrCheck(i)
				blnFound = True
				Exit For
			End If
		Next
		If Not blnFound Then
			MsgBox strEingelesenerWert & " noch nicht vorhanden!", vbCritical  
			'...  
			'...  
		End If
	Next
	strVariable_6 = Join(arrFields, strDelim)
	MsgBox strVariable_6
	'...  
	'...  
'Loop  

For i = 0 To UBound(arrFields)
	arrFields(i) = ""  
Next

If strEingelesenerWert = arrCheck(i) Then
				arrFields(i) = arrCheck(i)

For i = 0 To M
        StrComp(arrFields(i), arrCheck(i))
        If arrFields(i) <> arrCheck(i) Then
        arrFields(i) = ""  
        End If
Next