VB新建板块不成功

100018633

代码也执行了，但是板块里找不到“我的自选”，也找不到“我的板块”，是哪儿出问题了。代码如下：
Sub Form1_CommandButton1_Click()
'创建Block外部对象，将对象实例置变量b中
    Set b = CreateObject("Stock.Block")
    If b.IsTypeExist("我的自选")>0 Then

    else
        b.CreateType ("我的自选")
    End If
    If b.IsBlockExist("我的版块")>0 Then

    else
        b.CreateBlock "我的自选","我的版块"
    End If


'不要忘记释放对象，不然会导致内存泄漏
Set b = nothing


End Sub

技术006

代码没问题，在工具--市场与板块中的【板块】标签也下