如何检查VB6中是否加载了XML

Question

我在VB6中使用此代码搜索巴西的邮政编码：

MousePointer = 11
Dim xlink As String
Set myXML = New DOMDocument
myXML.resolveExternals = True
myXML.validateOnParse = True
myXML.async = False
xlink = "http://cep.republicavirtual.com.br/web_cep.php?cep=" & cep & "&formato=xml"
myXML.Load (xlink)

网址多次失败我想添加第二个链接

xlink2 = "https://viacep.com.br/ws/" & cep & " /xml"

我想知道myxml是否加载了15秒，如果延迟超过15加载另一个链接。

提前致谢