Puedes seguir usando la funcion
Split, pero ahora tambien usaras la funcion
UBound, que lo que hace es que devuelve el numero de elementos que contiene una matriz, entonces, sabiendo cual es el subindice del ultimo elemento podemos accesar a ese elemento obteteniendo asi el ultimo elemento del arreglo, en este caso, la ultima palabra.
Aqui un ejemplo sencillo:
Código:
Cadena = "Hola como estas"
Separador = " "
Palabras = Split(Cadena, Separador)
UltimoElemento = UBound(Palabras)
UltimaPalabra = Palabras(UltimoElemento)
Obviamente todo eso lo puedes reducir a unas cuantas lineas pero lo puse asi para que sea mas facil de comprender.
Saludosy buen dia