■ 最終指定文字位置検索（EndInstr）

Instr 関数を繰り返し使用することにより最後の指定文字列位置を検索できます
最後のパスセパレータ (\) を検索してファイル名を取得する場合などに利用できます

'******************************************************************************
'*  関数名：最終指定文字位置検索（EndInstr）
'*  引　数：検索文字列（ByVal st_str As String）
'*  　　　　指定文字（ByVal st_char As String）
'*  戻り値：文字位置（Long）
'*  機　能：検索文字列から最後の指定文字の位置を検索する
'******************************************************************************
Public Function EndInstr(ByVal st_str As String, ByVal st_char As String) As Long

    Dim l_ins             As Long           '' 検索位置
    Dim l_ret             As Long           '' 戻り値

    '' 検索位置の初期化
    l_ins = 0
    '' ループを開始する
    Do
        '' 前回の検索位置の次から指定文字の検索を行う
        l_ret = InStr(l_ins + 1, st_str, st_char)
        '' 指定文字が見つからない場合ループを抜ける
        If (l_ret = 0) Then Exit Do
        '' 検索結果を前回検索位置とする
        l_ins = l_ret
    Loop
    '' 最終指定文字位置を返す
    EndInstr = l_ins

End Function