字符串左右截取函数

'******************************************************************************************************
'功能：字符串左右截取函数
'调用：CutStrleftRight("abcd-efgh", "-", "Left")
'参数：s1：区号 ,s2 ：列号,Flag=left :截取字符串s1中s2前面的字符,反之Right截右边
'作者： FlashAsp
'Q Q： 21792038
'日期： 2007-04-12
'******************************************************************************************************

Public Function CutStrleftRight(s1 As String, s2 As String, Flag) As String
 If InStr(s1, s2) > 0 Then
    If Flag = "Left" Then
        CutStrleftRight = Left(Trim(s1), InStr(1, Trim(s1), s2, 1) - 1)
    Else
        CutStrleftRight = Right(Trim(s1), InStr(1, Trim(s1), s2, 1) - 1)
    End If
End If
End Function