'==============================================================
    'InstrRev Sample                                               '
    '==============================================================

    'Description    Returns the position of an occurrence of one
    '               string within another, from the end of string.
    
    'Syntax         InstrRev(string1, string2[, Start[, compare]])
        
    '               Part        Description
    '               ===============================================
    '               string1     Required. String expression being searched.
    '               string2     Required. String expression being searched for.
    '               Start       Optional. Numeric expression that sets the
    '                           Starting position for each search. If omitted,
    '                           -1 is used, which means that the search begins
    '                           at the last character position.
    '                           If Start contains Null, an error occurs.
    '               compare     Optional. Numeric value indicating the kind of
    '                           comparison to use when evaluating substrings.
    '                           If omitted, a binary comparison is performed.
    '                           See Settings section for values.

    'Settings
    'The compare argument can have the following Values:
    
    'Constant           Value       Description
    'vbBinaryCompare    0           Perform a binary comparison.
    'vbTextCompare      1           Perform a textual comparison.
    'vbDatabaseCompare  2           Perform a comparison based on
    '                               information contained in the
    '                               database where the comparison
    '                               is to be performed.
    Dim PathAndFileName
    Dim PathName
    Dim FileName
    Dim Extension
    'Assign Path and FileName
    PathAndFileName = "c:\windows\system\myDllFile.dll"
    'Get Path from PathAndFileName
    PathName = Mid(PathAndFileName, 1, InstrRev(PathAndFileName, "\"))
    'Get FileName from PathAndFileName
    FileName = Right(PathAndFileName, Len(PathAndFileName) - InstrRev(PathAndFileName, "\"))
    'Get Extension from PathAndFileName
    Extension = Right(PathAndFileName, Len(PathAndFileName) - InstrRev(PathAndFileName, "."))
    'Display results
    MsgBox "Original String: " & PathAndFileName & vbCrLf & _
            "FileName: " & FileName & vbCrLf & _
            "Extension: " & Extension, vbInformation, "InstrRev Sample"