VBScript の関数、InStrRev
MsgBox InStrRev("abcabc", "ab") ' 4 MsgBox InStrRev("abcabc", "ab", 2) ' 1 MsgBox InStrRev("abcabc", "ab", 1) ' 0 MsgBox InStrRev("abcabc", "cd") ' 0
MsgBox InStrRev("abcabc", "ab") ' 4 MsgBox InStrRev("abcabc", "ab", 2) ' 1 MsgBox InStrRev("abcabc", "ab", 1) ' 0 MsgBox InStrRev("abcabc", "cd") ' 0