1. Реализовать функцию Reverse (у Вас уже получилось)) Осталось вынести в функцию)
2. Реализовать функцию IsSplitSymbol(a as String) as Boolean - проверяет, является ли строка разделителем.
3. Завести две Integer переменных - одна хранит начало текущего слова, другая его длину:
Dim myStart, myLen as Integer


Пробегаем по строчке слева направо:
Если текущий символ - разделитель:
Дописываем к рез. строке Reverse(Mid(t,myStart, myLen))
Дописываем символ к результирующей строке
myLen=0
myStart = i+1
Если текущий символ - не разделитель
myLen=myLen+1

Повторю вопрос: это VB6 или уже VB.NET