Упростить код(Visual Basic)

[MaXgo]

Есть задача:

Дана строка, состоящая из слов, разделенных любым количеством пробелов. На-пишите программу, которая находит все слова, в которых буква ”а” встречается более чем один раз.

Есть код:

Private Sub КнопкаВыполнить_Click()
  S = Text1
  a = Split(S, " ")
     For I = 0 To UBound(a)
    J = InStr(1, a(I), "a")
    a(I) = IIf(J > 0, IIf(InStr(J + 1, a(I), "a") > J, a(I), ""), "")
     Next I
  S = Trim(Join(a, " "))
    lstWord.AddItem S
    End Sub

Нужно его немного упростить.
Помогите пожалуйста кому не трудно(

[MaXgo]

Нет того кто знает?