出现此问题的原因是在调用API时，需要证书才能完成身份验证，但是没有提供相应的证书，因此需要添加证书。

以下是一个示例代码，演示了如何在API调用中添加证书：

Dim objXML As Object
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.Open "GET", strURL, False
objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

在此代码中，通过调用CreateObject方法创建了一个XMLHttpRequest对象（objXML），并使用Open方法打开请求。在设置请求头（setRequestHeader）时，添加了Content-Type属性，指定请求的内容类型。

同时，可以使用SetClientCertificate方法来设置要使用的证书：

Dim objXML As Object
Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.SetClientCertificate "MyCertificate"

在此代码中，指定了使用名为MyCertificate的证书进行身份验证。

注意：上述示例中使用的是MSXML2.XMLHTTP对象，可能需要根据具体情况调整成其它对象。