Как из текста удалить все буквы, стоящие на нечетных местах после буквы "а" - VB

Function Task(Stri as string) As String
   Task=Left$(Stri,2)
   for i%=3 to Len(Stri) Step 2
       if mid$(Stri$,(i%-1),1)="a" then Task=Task & mid$(Stri,i%,1)
   next i%
End Function