Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "c# javascript php c c++ python vb.net"
Dim pos1 As Integer = s.LastIndexOf(" ")
Dim pos2 As Integer = s.LastIndexOf(" ", pos1 - 1)
Console.WriteLine(pos1) ' debug
Console.WriteLine(pos2) ' debug
Dim last_two_words As String = if ((pos2 > -1), s.Substring(pos2 + 1), s)
Console.Write(last_two_words)
End Sub
End Class
' run:
'
' 30
' 23
' python vb.net
'