Dim woerter$(2)  ; sind 3 weil ein array bei 0 anfängt 0 bis 2 = 3  weil  0 1 2 = 3
stringalt$ ="Hallo du da"
position   = 1
anzahl = 0


;hier passiert die eigentliche aufteilung der woerter
While Instr(stringalt," ")


   ; diese zeile ist nur daz uda das man auch alle wöerter einzeln bekommt
   stringalt$ = Mid$(stringalt$,position)


   Stringneu$ = Mid$(stringalt$,1,Instr(stringalt$," "))

; hier wird die position erneuert wo es ein leerezeichen gibt + 1 zeichen damit es rausgeschnitten wird

   position   = instr(stringalt$," ")+1
   
   
   
;hier wird in woerter$ das wort eingefügt wenn anzahl z.b 0 ist dann wird hallo
;in woerter(0) gepackt

   If Not Stringneu$ = "" Then woerter$(anzahl) = Stringneu$                                                          
   
   
   If Stringneu$ = "" Then
      woerter$(anzahl) = Stringalt$
   End If
   
   
   
   ;hier wird die anzahl erhöht
   anzahl = anzahl + 1
   
Wend



; hier werden die einzelnen array felder wieder ausgegeben
Print woerter$(0)
Print woerter$(1)
Print woerter$(2)



WaitKey
End