Como recuperar ultima palabra de un string?

[pkj]

Ahora que he entendido qué es lo que hace eso de split y ubound, creo que para conseguir el penúltimo elemento o cualquiera entre medias deberías usarlos.

Yo he cargado esto en un form con un botón y ha funcionado:

' siempre uso esto para obligarme a declarar las variables
Option Explicit

Private Sub Command1_Click()
Dim ArrayDeCadenas() As String
Dim Cadena As String ' esta variable la quitas y usas la que tienes cargada

' suponiendo que tienes la cadena...
Cadena = "cadena1-cadena2-cadena3"

ArrayDeCadenas = Split(Cadena, "-")

' como ubound te devuelve la cantidad de elementos,
' para conseguir la penúltima palabra sería...
MsgBox ArrayDeCadenas(UBound(ArrayDeCadenas) - 1)

End Sub

Tu cadena sigue intacta y el resultado es una simple cadena.

Suerte con ello. Yo ya he aprendido algo hoy.