【VBA】文字列から、指定の文字をカットする｜指定文字より前/後ろを残す

Public Function CutAfterLastStr( _
                                        ByVal strSrc As String, _
                                        ByVal strCut As String) As String
    Dim num As Long
    num = InStrRev(strSrc, strCut)
    CutAfterLastStr = Left(strSrc, num - 1)
End Function

Public Function CutBeforeLastStr( _
                                        ByVal strSrc As String, _
                                        ByVal strCut As String) As String
    Dim num As Long
    num = InStrRev(strSrc, strCut)
    CutBeforeLastStr = Mid(strSrc, num + 1)
End Function