VB6从HTML代码中提取某一个板块代码函数

        Public Function qubankuai(ByVal xcode As String, ByVal xkaishi As String, ByVal xjieshu As String) '取HTML中的版块  = qubankuai(yuanma,kaishi,jieshu)

        Dim yy1, yy2 As Long                                                           '声明3个变量的时候 必须分开声明

        If InStr(xcode, xkaishi) = 0 And InStr(xcode, xjieshu) = 0 Then

            qubankuai = "=====模块==找不到列表开始和结束代码======"

        Else

            yy1 = InStr(xcode, xkaishi)

            yy2 = InStr(Mid(xcode, yy1), xjieshu) + Len(xjieshu)

            qubankuai = Mid(xcode, yy1, yy2)

        End If

        End Function