vba - CDATA を含める VBA 関数

Question

cdata を含める次の関数があります。

Function cdatasection()
    Dim objDom As DOMDocument
    Dim objKMLRootelement As IKMLDOMElement
    Dim objKMLelement As IKMLDOMElement
    Dim cdata As IKMLDOMCDATASection

    Set objDom = New DOMDocument
    Set objKMLRootelement = objDom.createElement("BalloonStyle")
    objDom.appendChild objKMLRootelement
    Set objKMLelement = objDom.createElement("text")
    objKMLRootelement.appendChild objKMLelement
    Set cdata = objDom.createCDATASection("text")
    cdata.Data = "<![CDATA[<b>Latitude = $[latitude]</b>?]]>;"
End Function

上記を実行すると、関数に対して「ユーザー定義のデータ型が見つかりません」というエラーが表示されます。