Public Class clsInStrRev
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose:  returns integer of the position of the first occurrence of one string 
        ' within another, starting from the right side of the string. If the string is 
        ' not found, the result is 0
        '
        ' Syntax: 	InStrRev(stringToSearch,stringToFind,startIndex,compareMethod)
        '
        ' Parameter1: stringToSearch - Required - string that you want to search
        '
        ' Parameter2: stringToFind - Required - string that you are trying to 
        ' find into parameter2
        '
        ' Parameter3: startIndex - Optional.  Numeric expression setting the 
        ' one-based starting position for each  search, starting from the 
        ' left side of the string. If Start is omitted then –1 is used, 
        ' meaning the search begins at the last character position. 
        ' Search then proceeds from right to left.
        '
        ' Parameter4: comparemethod - Optional - integer indicating binary or text
        '        
        ' Result: integer - returns integer of the position of the first occurrence 
        ' of one string within another, starting from the right side of the 
        ' string. If the string is not found, the result is 0
        '
        ' Quick Example:  Dim strString1 As String = "Hello World"
        '    Console.WriteLine(InStrRev(strString1, "l").ToString()) 'Returns 10
        '
        '****************************************************************************************
 
 
        Console.WriteLine("Example #1: 	InStrRev(stringcheck,stringmatch,start,comparemethod) ")
 
        Dim strString1 As String = "Hello World"
 
 
        Console.WriteLine(InStrRev(strString1, "l").ToString()) 'Returns 10
        Console.WriteLine(InStrRev(strString1, "x").ToString()) 'Returns 0 because not found
 
 
        '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 myclsInStrRev As New clsInStrRev
        myclsInStrRev.Main()
 
 
 
    End Sub
 
End Module