後ろから「指定した文字列」以降の文字列を取得するVBA関数

'--------------------------------------------------------------------
'関数名：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