Function MidStr(ByVal strText As String, ByVal strStart As String, ByVal strEnd As String) As String
    '提取中间字串
    strText = Mid(strText, InStr(strText, strStart))
    MidStr = Left(strText, InStr(strText, strEnd) + Len(strEnd) - 1)
End Function

此部分调试有误，希望调试好在上传