Public Class clsLastIndexOf
 
    Public Sub Main()
 
 
 
        '****************************************************************************************
        ' Purpose:  Returns an integer that represents the position of the last occurrence of the
        ' specified number of characters. If you specify startIndex, that specifies
        ' where to start looking. If you specify count, that specifies how many characters to 
        ' to search past start. If the string is not found, this method returns -1
        '
        ' Syntax: 	stringToSearch.LastIndexOf(stringMatch[, startIndex][,length])
        '
        ' Parameter1: stringToSearch - Required - string to be searched
        '
        ' Parameter2: stringMatch - Required - string that you are looking 
        ' for in parameter1
        '
        ' Parameter3: startIndex - Optional. specifies where to start looking. Zero-based.
        '
        ' Parameter4: length - Optional. specifies how many characters to 
        ' to search past start.
        '
        ' Result: integer - Returns an integer that represents the position 
        ' of the last occurrence of the specified number of characters. If 
        ' you specify startIndex, that specifies where to start looking. 
        ' If you specify count, that specifies how many characters to 
        ' to search past start. If the string is not found, this method returns -1
        '
        ' Quick Example:  Dim strLastIndexOfExample As String = "This is a test string"
        ' Console.WriteLine(strLastIndexOfExample.LastIndexOf("is")) 'Returns 5
        ' Console.WriteLine(strLastIndexOfExample.LastIndexOf("xyz")) 'Returns -1
        '
        '****************************************************************************************
 
 
        Console.WriteLine("Example #1: stringToSearch.LastIndexOf(stringMatch[, startIndex][,length]) ")
 
        Dim strLastIndexOfExample As String = "This is a test string"
 
        Console.WriteLine(strLastIndexOfExample.LastIndexOf("is")) 'Returns 5
 
        Console.WriteLine(strLastIndexOfExample.LastIndexOf("xyz")) 'Returns -1
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsLastIndexOf As New clsLastIndexOf
        myclsLastIndexOf.Main()
 
 
 
    End Sub
 
End Module