Составить программу вывода последнего слова в visual basic *)

Sub pr()
Dim s As String
s = InputBox("Введите предложение")
s = Right(s, Len(s) - InStrRev(s, " "))
MsgBox (s)
End Sub