dim i as long
dim ff as long
dim sTab() as string
 
  sTab = split(DeinString," ")
  ff = freefile
  open app.path & "\DeineAusgabe.txt" for output as #ff
  for i = 0 to ubound(sTab)
         print #ff, sTab(i)
   next i
   close #ff

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell