用户定义类型未定义错误

请教各位老师，我在论坛复制一段代码“

Function CBPrintCBarInfo(strCBarName As String) As Variant

    ' This procedure prints (to the Debug window) information

    ' about the command bar specified in the strCBarName argument

    ' and information about each control on that command bar.

    Dim cbrBar                      As CommandBar

    Dim ctlCBarControl              As CommandBarControl

    Const ERR_INVALID_CMDBARNAME    As Long = 5

   On Error GoTo CBPrintCBarInfo_Err

    Set cbrBar = Application.CommandBars(strCBarName)

   Debug.Print "CommandBar: " & cbrBar.Name & vbTab & "(" _

        & CBGetCBType(cbrBar) & ")" & vbTab & "(" _

        & IIf(cbrBar.BuiltIn, "Built-in", "Custom") & ")"

    For Each ctlCBarControl In cbrBar.Controls

        Debug.Print vbTab & ctlCBarControl.Caption & vbTab & "(" _

            & CBGetCBCtlType(ctlCBarControl) & ")"

    Next ctlCBarControl

CBPrintCBarInfo_End:

    Exit Function

CBPrintCBarInfo_Err:

    Select Case Err.Number

        Case ERR_INVALID_CMDBARNAME

            CBPrintCBarInfo = "'" & strCBarName & _

                "' is not a valid command bar name!"

        Case Else

            CBPrintCBarInfo = "Error: " & Err.Number _

                & " - " & Err.Description

    End Select

    Resume CBPrintCBarInfo_End

End Function

运行时出错 ”用户定义类型未定义”

Private Sub Command0_Click()

      CBPrintCBarInfo(“Web”)

End sub

为什么会出现错误呢？是什么东东没引用？，请教了，谢谢！！！