'--------------------------------------------------------------------
'関数名:getSpecificLastString
'内容 :後ろから「指定した文字列」以降の文字列を取得するVBA関数
'引数  :文字列
'戻り値:なし
'--------------------------------------------------------------------
Private Function getSpecificLastString(str As String, spec As String) As String

  'str = 対象の文字列
    'spec = 指定した文字列
    Do While InStr(str, spec) <> 0
        str = Mid(str, InStr(str, spec) + 1)
    Loop
    
    getSpecificLastString = str
    
End Function