Scomporre una stringa e caricare ogni parola in una variabile array

Il caso in questione è quello in cui si ha una stringa, nella quale sono presenti anche dei comandi: carrello a capo + nuova riga, così da ottenere visivamente più righe, come nell'esempio sottostante:

Questo è il Wiki di Gambas-it
cioè è una collezione di documenti ipertestuali
che può essere modificata dai suoi utilizzatori

L'intenzione è quello di scomporre tale stringa in modo da distinguere ed inserire i vari gruppi di caratteri alfanumerici comprensibli (ossia le normali parole) e diversi dagli spazi, che formano la stringa, in una variabile array.

Poniamo il caso che quella stringa sia caricata tutta nella variabile stringa "wiki". Per raggiungere il nostro obiettivo iniziale potremo, quindi, adottare il seguente procedimento:

Private wiki As String = "Questo è il Wiki di Gambas-it\n" &

"cioè è una collezione di documenti ipertestuali\n" & "che può essere modificata dai suoi utilizzatori"

Public Sub Button1_Click()

Dim a As String
Dim aa As String[]
Dim j As Byte

' Eliminiamo innanzitutto dalla stringa tutti i comandi:
' "carrello a capo + nuova riga", trasformandoli in semplici spazi.
' La stringa si trasformerà visivamente in un'unica riga lineare. Questo per preparare
' la stringa alla successiva funzione ed affinché essa resti unica:
   a = Replace(wiki, "\n", " ")

' Si scompone, quindi, la stringa così ottenuta, ponendo come punto
' di divisione di ogni elemento dall'altro gli spazi. Si pone a "True" l'ultimo parametro
' della funzione "Split", in modo tale da assicurarsi completamente la non considerazione di qualsisi spazio.
' Nella variabile array "aa" avremo, quindi, una parola alfanumerica per ciascun elemento:
   aa = Split(a, " ", "", True)

' Andiamo a vedere il contenuto di ciascun elemento dell'array:
  for j = 0 to aa.Max
    Print aa[j]
  Next

End