Find ord i en variabel

Jeg har en funktion der finder det første ord i en variabel og skriver det ind i en ny variabel.

i = inStr(1,titel," ")
If i > 0 then
  nytitel = left(titel,i-1)
End if

Dette virker fint, men jeg har så brug for at, vis det første ord er feks. The eller A eller de, så skal den tage det næste ord istedet.
Så hvis titel="The best way" så skal nytitel være "best"
Dette skal ikke fejle vis titel kun er "test", altså kun et ord.

Det vil være bedst vis de ord som ikke må stå først i titel, kan lægges i et array, så det er nemt at lægge flere ord ind.

200 point for et svar inden kl. 03.00 idag, ellers mindre.