Cool! Wäre auf so eine stringente Variante nicht gekommen...

Merci
Mike


Am 01.04.08 14:49 schrieb "Andy Fuchs" unter <[EMAIL PROTECTED]>:

> Sowas?
> 
>   dim arr(-1) as string
>   dim i as Integer
>   
>   arr = Split(EditField1.text, EndOfLine.Macintosh)
>   
>   for i = 0 to Ubound(arr)-1
>     
>     Speak arr(i)
>     
>   next


Antwort per Email an