Du könntest die Split() Funktion benutzen und den String an den "-" Zeichen trennen.

Dim vari(8) as string*3 '8 Strings der Länge 3

Anzahl_wörter=Split(Me_Text1,vari,"-")

Ich glaube übrigens nicht, dass Bascom dein Me.Text1 mögen wird.
Der Compiler wird wohl eine Variable Me suchen, an deren Bit-Position Text ein Wert geschrieben werden soll.