Visual Basic.NET - Extraer ultima palabra de una cadena

Dim S As String = "Este es una frase en español"

Dim UltimaPalabra As String

UltimaPalabra = S.Substring(S.LastIndexOf(" ") + 1)

MessageBox.Show(UltimaPalabra)

Dim S As String

S = ElTextBoxParaIntroducir.Text

Dim UltimaPalabra As String

UltimaPalabra = S.Substring(S.LastIndexOf(" ") + 1)

ElTextBoxParaMostrar.Text = UltimaPalabra

' ...

Dim S As String

S = Console.ReadLine()

Dim UltimaPalabra As String

UltimaPalabra = S.Substring(S.LastIndexOf(" ") + 1)

Console.WriteLine(UltimaPalabra)

' ...

Dim cadena, ultimaPalabra, segundaPalabra As String

Console.WriteLine("Ingresar cadena de 3 palabras: ")

cadena = Console.ReadLine()

ultimaPalabra = cadena.Substring(cadena.LastIndexOf(" ") + 1)

segundaPalabra = cadena.Substring(cadena.IndexOf(" ") + 1, cadena.IndexOf(" ") + 1)

Dim StringIniciale As String = "Este es una frase en español"  ' que viene del teclado o no, con tan de palabras que te gusta.

Dim StringDeTrabajo As String = StringIniciale  ' trabajamos con una duplica para no perder StringIniciale

Dim PalabraParaMostrar As String  ' la palabra que mostrados

Dim PosicionUltimoBlanco As Integer = StringDeTrabajo.LastIndexOf(" ")

While PosicionUltimoBlanco > -1

    PalabraParaMostrar = StringDeTrabajo.Substring(PosicionUltimoBlanco)

    StringDeTrabajo = StringDeTrabajo.Substring(0, PosicionUltimoBlanco)

    PosicionUltimoBlanco = StringDeTrabajo.LastIndexOf(" ")

    ' Aqui, utilizas cada palabra extraida de StringDeTrabajo

    MessageBox.Show(PalabraParaMostrar)   ' si no debe restar caracter blanco al incial y/o al final de la palabra, utilizas Trim : PalabraParaMostrar.Trim()

End While

' Aqui, reste una palabra en StringDeTrabajo, este es la primera de la la cadena iniciale

MessageBox.Show(StringDeTrabajo)    ' si no debe restar caracter blanco al incial y/o al final de la palabra, utilizas Trim : StringDeTrabajo.Trim()