scusa...ma io scrivo:

myArray() = Split(Text1.Text, chr(32))
Text4.Text = UBound(myArray())


ma se la mia stringa è: "Prova stringa"

con 5 spazi tra le due parole, mi fornirà un array di dimensione 5....come posso fare per valutare correttamente che ci sono solo due parole?