'Variablen anlegen
Dim strInput, ,strLine, strRaum, strWert As String
Dim i As Long
Dim intPos As Integer
 
'Fixwerte setzen
strInput = "Pfad\Datei.txt"
i = 0
intPos = 0
 
'Verarbeitung beginnen
Open strInput For Input As #1								'txt file für einfaches einlesen öffnen
    Do While Not EOF(1)										'datei zeilenweise durchlaufen
        Line Input #1, strLine             					'aktuelle zeile der datei 
        ' einlesen
 
        strRaum = Left(strLine, 9)							'die raumbezeichnung in strRaum lesen
        strWert = Right(strLine, Len(strLine) - 10)     	'alles ab zeichen 10 
        ' in strWertGes lesen
 
        For i = 0 To 7										'schleife zum schreiben der 4-stelligen in die 
        ' listboxes
        	lstWert(i).AddItem Mid(strWertGes, intPos, 4)	'werte in listboxes 
        ' schreiben
        	intPos = intPos + 4
        Next i
        lstWert(8).AddItem Mid(strWertGes, 32, 2)       	'letzter wert extra, 
        ' weil in deinem beispiel 2-stellig
        'die anzahl der durchläufe, längen, usw. müssen genau auf den werte-str 
        ' in deiner txt-datei passen!
 
 
    Loop			'so lange das dateiende nicht erreicht ist, nächste zeile holen
Close #1			'txt file schließen