Splitte/opdele sætning

myArray = Split(myString, \" \")
\'Deler myString ved hvert mellemrum og gemmer hvert ord i myArray

For i = 1 to UBound(myArray)
  myString2 = myString2 & myArray(i)
  \'Looper igennem alle ord i myArray og tilføjer dem til myString2 
If i < UBound(myArray) Then myString2 = myString2 & \" \"
  \'Tilføjer et mellemrum hvis der kommer flere ord
Next

Skulle virke (det kan muligvis gøres smartere)...

myArray = Split(myString, \" \")
Streng1 = myArray(0)
Streng2 = Mid(myString, (len(Stregn1)))

Selvfølgelig... :)