Visual Basic 6 - vb 6 stringhe e vettori

Sto lavorando ad un programmino e non riesco ad andare avanti per via di un problema.
Allora
Ho una stringa

a = Lunedi Martedi Mercoledi GIovedi

.. ecc fino a domenica, io devo dividere qst stringa ed inserire ogni giorno della settimana in un vettore di 7 elementi...potete aiutarmi?

Dim TuoVettore() as String
TuoVettore = Split(a," ")

Dove " " è il carattere (lo spazio) che separa nella tua stringa i giorni.

hmm...qundi con questo codice dovrei avere
v(1)=lunedi
v(2)=martedi
.
.
.
e cosi via?

si

No. Il limite inferiore della matrice è 0.

v(0)=lunedi
v(1)=martedi
.
.

ah già piccola svista, a ragione alfonso si parte da 0

ho risolto cosi

 giorni = "Lunedi Martedi Mercoledi Giovedi Venerdi Sabato "
t1 = 0
s = 1
c = 1
Do While c <= Len(giorni)
  t = Mid(giorni, c, 1)
    If t = " " Then
      Text2(t1).Text = Mid(giorni, s, c - s)
      Vgiorni(t1 + 1) = Text2(t1).Text
      t1 = t1 + 1
      s = c
    End If
c = c + 1
Loop