Attribute VB_Name = "winTips" Function SubStringAfter(文字列, 検索文字列, Optional フラグ = False) Attribute SubStringAfter.VB_Description = "文字列の後方から部分文字列で検索し、登場位置以降の文字列を取得する。戻り値に検索文字列を含むことができるかどうかは、第3引数によって切り替えることができる。" intSrch = InStrRev(文字列, 検索文字列) If フラグ Then strResult = Right(文字列, Len(文字列) - (intSrch - 1)) Else strResult = Right(文字列, Len(文字列) - Len(検索文字列) - (intSrch - 1)) End If SubStringAfter = strResult End Function