Module Module1
Sub Main()
Dim s As String = "Star Wars is GREAT movie. Star Trek is also a Great movie"
' ignor the case
Dim i As Integer = s.LastIndexOf("great", StringComparison.OrdinalIgnoreCase)
If (i <> -1) Then
Console.WriteLine(i)
Console.WriteLine(s.Substring(i))
End If
End Sub
End Module
'run:
'
'46
'great movie