'使用方法:
'findstr("我来添加文章","来","加")
'=来添加

'-----------------------------
Public Function findStr(ByVal str As String, ByVal str1 As String, ByVal str2 As String)
    Dim a, b As Integer

    If InStr(1, str, str1, 1) <> 0 Then
        a = InStr(1, str, str1, 1)
        If InStr(a, str, str2, 1) <> 0 Then
            b = InStr(a, str, str2, 1)
            findStr = Mid(str, a, b - a + 1)
        End If
    End If

End Function