InStrRev関数

構文
InStrRev(string1,string2[,start[,compare]])
引数string1には、検索の対象となる文字列を指定します。
引数string2には、引数string1の中から検索する文字列を指定します。
引数startは省略可能です。検索を始める位置を指定します。
引数compareは省略可能です。文字列を比較するモードを指定します。

解説
InStrRev関数は、引数string1で指定した文字列の中から引数string2で指定した文字列を後方から検索して、見つかった位置を返します。
引数compareには次の定数を指定できます。

数値	内容
0	テキストモードで比較します。大文字と小文字の区別をしません
1	バイナリモードで比較をします
2	Microsoft Accessでのみ使用できます

サンプル
次の例は、C:\Test.csvを読み込んで最終データを表示します。

Sub Sample()
    Dim buf As String, msg As String
    Open "C:\Test.csv" For Binary As #1
    buf = Space(FileLen("C:\Test.csv"))
    Get #1, , buf
    Close #1
    msg = Mid(buf, InStrRev(buf, ",") + 1)
    MsgBox msg
End Sub