һַַ֮ȡҪַVB6VBAVB.Netͨ

Sub test()
    MsgBox GetByDiv("zygԪ⡿", "", "") 'أzygԪ
    MsgBox GetByDiv("zygԪ⡿", "g", "") 'أԪ
End Sub

'һַַ֮ȡҪַ
Function GetByDiv(ByVal code As String, ByVal divBegin As String, ByVal divEnd As String)  'ȡָе[ɣδ]
    'ڻȡ
    Dim lgStart As Integer
    Dim lens As Integer
    Dim lgEnd As Integer
    lens = Len(divBegin)
    If InStr(1, code, divBegin) = 0 Then GetByDiv = "": Exit Function
    lgStart = InStr(1, code, divBegin) + CInt(lens)
    lgEnd = InStr(lgStart + 1, code, divEnd)
    If lgEnd = 0 Then GetByDiv = "": Exit Function
    GetByDiv = Mid(code, lgStart, lgEnd - lgStart)
End Function
