Dim v
Dim x as single
dim y as single
 
dim s as String
 
for each v in meinArray
   s = Trim(v)
   if lcase(left(s,1)) = "x" then
     x = val(right(s,len(s) - 1)
   elseif lcase(left(s,1)) = "y" then
     y = val(right(s,len(s) - 1)
   else
     '.... SP und m verarbeiten
   end if
   'jetzt ist mir dein text zu kompliziert
 
next v

Gruß
Dirk

--
?Get it right the first time