VisualBasic VBScript Select Abfrage Problem

[KaeTuuN]

Hiho,
Mein Problem ist, das die unten angehängte Select Abfrage nicht richtig funktioniert. Es werden wenn, dann nur die ersten beiden Strings gefunden, obwohl definitiv auch andere vorhanden sind. Auch werden die Ersten beiden manchmal gefunden, obwohl sie nicht vorhanden sind.
Ich weiß einfach nicht, wo der Fehler liegt...

a_sw(y,x) -> 2D-Array
y -> Laufzeitvariable

Vielen Dank schonmal für eure Hilfe!

Mfg Kae

do while y > 0
	Set objSh = objFSO.OpenTextFile(shPath & a_sw(y,1) & "_install.sh",1) 'Pfad wird gebastelt und Datei geöffnet, klappt ohne Probs
			do until objSh.AtEndOfStream
AktZeile = objSh.ReadLine
				Select Case AktZeile
					Case Left(AktZeile ,9) = "COPY_STD="	a_sw(y,6)  = 1
					Case Left(AktZeile ,9) = "REDIRECT=" 	a_sw(y,7)  = 1
					Case Left(AktZeile ,8) = "USERCHK=" 	a_sw(y,8)	 = 1
					Case Left(AktZeile ,12) = "IGNORE_USER="	a_sw(y,9)	 = 1
					Case Left(AktZeile ,7) = "MSGBOX=" 	a_sw(y,10) = 1
					Case Left(AktZeile ,12) = "MSGBOXTIMED=" 	a_sw(y,11) = 1
					Case Left(AktZeile ,10) = "NOUSERCHK="	a_sw(y,12) = 1
					Case Left(AktZeile ,14) = "MSGBOX_REBOOT=" a_sw(y,13) = 1
					Case Left(AktZeile ,10) = "KIOSKMODE="	a_sw(y,14) = 1
					Case Left(AktZeile ,14) = "NETSENDBEFORE=" a_sw(y,15) = 1
					Case Left(AktZeile ,13) = "NETSENDAFTER=" a_sw(y,16) = 1
					Case Left(AktZeile ,19) = "MANUAL_INST_REBOOT=" a_sw(y,17) = 1
				End Select
  		Loop
  		objsh.Close	 
  y = y - 1
Loop

EDIT: Fehler korrigiert.

Ergänzung (1. April 2010)

Ok, habs selbst gelöst, bei einer Case Anweisung funktioniert der Befehl "Left" nicht. Deshalb sieht das ganze jetzt in etwa so aus:

	Set objSh = objFSO.OpenTextFile(shPath & a_sw(y,1) & "_install.sh",1)
			do until objSh.AtEndOfStream
				AktZeile = left(objSh.ReadLine,24)
				Select Case AktZeile
					Case "MANUAL_INST_REBOOT=""YES"""	a_sw(y,17) = 1
				End Select	
				AktZeile = left(AktZeile,19)
				Select Case AktZeile
					Case "MSGBOX_REBOOT=""YES"""			a_sw(y,13) = 1
					Case "NETSENDBEFORE=""YES"""			a_sw(y,15) = 1
				End Select	
				AktZeile = left(AktZeile,18)
				Select Case AktZeile
					Case "NETSENDAFTER=""YES"""				a_sw(y,16) = 1
				End Select	
				AktZeile = left(AktZeile,17)
				Select Case AktZeile
					Case "IGNORE_USER=""YES"""				a_sw(y,9)	 = 1
					Case "MSGBOXTIMED=""YES"""				a_sw(y,11) = 1
				End Select	
				AktZeile = left(AktZeile,15)
				Select Case AktZeile
					Case "NOUSERCHK=""YES"""					a_sw(y,12) = 1
					Case "KIOSKMODE=""YES"""					a_sw(y,14) = 1
				End Select	
				AktZeile = left(AktZeile,14)
				Select Case AktZeile
					Case "COPY_STD=""YES"""						a_sw(y,6)  = 1
					Case "REDIRECT=""YES"""						a_sw(y,7)  = 1
				End Select
				AktZeile = left(AktZeile,13)
				Select Case AktZeile
					Case "USERCHK=""YES"""						a_sw(y,8)	 = 1
				End Select	
				AktZeile = left(AktZeile,12)
				Select Case AktZeile
					Case "MSGBOX=""YES"""							a_sw(y,10) = 1
				End Select	
  		Loop

Mfg Kae