¿Cómo puedo hacer esto en VB8?

[soundmartell]

Hola,
No he tenido suerte, no me funciona bien.
Primero me da un error en el código ya que Char no puede ser utilizado por ser un Keyword, le agregué un r en cada Char quedando Charr y lo solucioné pero no me devuelbe bien el test
Me detecta la cantidad de palabras pero no las que terminan en "a" o "b" como debería ser.
¿Alguna idea?
Muchas gracias por su tiempo y ayuda.
Livan