text= "    Tobias       Elif    Christoph        last value contains blanks "
text2= "Tobias;ELif;Christoph"
Parse Var text Name1 Name2 Name3 X
Say text;
Say pp(Name1)
Say pp(Name2)
Say pp(Name3)
Say pp(X)
Parse Var text2 Name1.1 ";" Name2.1 ";" Name3.1
Say pp(Name1.1)
Say pp(Name3.1)
Say pp(Name2.1)
Exit
PP: Return "Hallo ich bin " ARG(1)