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

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