Else
		anfPos = 1
		endPos = InStr(anfPos, strLine,":")
		'MsgBox(endPos)
		'MsgBox(midLaenge)
		strGala = Mid(strLine, anfPos, endPos - anfPos)
		'MsgBox(strGala)
 
		anfPos2 = endPos+1
		endPos2 = InStr(anfPos2, strLine,":")
		'MsgBox(endPos2)
		strSys = Mid(strLine, anfPos2, endPos2 - anfPos2)
		'MsgBox(strSys)
 
 
		anfPos3 = endPos2 + 1
		endPos3 = InStr(anfPos3, strLine,"-")
		'MsgBox(endPos3)
		strPlani = Mid(strLine, anfPos3, endPos3 - anfPos3)
		'MsgBox(strPlani)
 
		anfPos4 = endPos3 + 1
		endPos4 = InStr(anfPos4, strLine,"-")
		'zeilenLaenge = Len(strLine)
		strTyp = Mid(strLine, anfPos4, endPos4 - anfPos4)
		'MsgBox(strTyp)
 
		anfPos5 = anfPos4 + 1
		endPos5 = InStr(anfPos5, strLine,"-")
		'MsgBox(endPos5)
		zeilenLaenge = Len(strLine)
		Pos = zeilenLaenge - endPos5
		strAnz = Right(strLine, Pos)
		'MsgBox(strAnz)
 
		Select Case strTyp
 
		Case "10"
			Randomize
			flottenklick(i) = Int((Rnd * 10000)+4000)/20000
			Randomize
			koordklick(i) = Int((Rnd * 15000)+10000)/15000
			Randomize
			pluenderklick(i) = Int((Rnd * 10000)+4000)/20000
			iret = iim1.iimSet("-var_flottenklick", cstr(flottenklick(i)))
			iret = iim1.iimSet("-var_koordklick", cstr(koordklick(i)))
			iret = iim1.iimSet("-var_pluenderklick", cstr(pluenderklick(i)))
			iret = iim1.iimSet("-var_gala", cstr(strGala))
			iret = iim1.iimSet("-var_sys", cstr(strSys))
			iret = iim1.iimSet("-var_plani", cstr(strPlani))
			iret = iim1.iimSet("-var_anz", cstr(strAnz))
			iret = iim1.iimSet("-var_v", cstr(v))
			iret = iim1.iimSet("-var_sesid", cstr(sesid))
			iret = iim1.iimSet("-var_startplani", cstr(startplani))
			iret = iim1.iimSet("-var_stammurl", cstr(stammurl))
			iret = iim1.iimPlay("PF_flotte_los_cux")
 
		Case "11"
			Randomize
			flottenklick(i) = Int((Rnd * 10000)+4000)/20000
			Randomize
			koordklick(i) = Int((Rnd * 15000)+10000)/15000
			Randomize
			pluenderklick(i) = Int((Rnd * 10000)+4000)/20000
			iret = iim1.iimSet("-var_flottenklick", cstr(flottenklick(i)))
			iret = iim1.iimSet("-var_koordklick", cstr(koordklick(i)))
			iret = iim1.iimSet("-var_pluenderklick", cstr(pluenderklick(i)))
			iret = iim1.iimSet("-var_gala", cstr(strGala))
			iret = iim1.iimSet("-var_sys", cstr(strSys))
			iret = iim1.iimSet("-var_plani", cstr(strPlani))
			iret = iim1.iimSet("-var_anz", cstr(strAnz))
			iret = iim1.iimSet("-var_v", cstr(v))
			iret = iim1.iimSet("-var_sesid", cstr(sesid))
			iret = iim1.iimSet("-var_startplani", cstr(startplani))
			iret = iim1.iimSet("-var_stammurl", cstr(stammurl))
			iret = iim1.iimPlay("PF_flotte_los_lev")
		End Select
	End If        
Wend
 
ts.Close
MsgBox "Fertig!"
iret = iim1.iimDisplay("Fertig!")
 
Set ts = Nothing
Set fso = Nothing