VBA XMLパースで「属性と属性値の間に等号 (=) がありません。」

前提・実現したいこと

任意のURLにVBAでアクセスして、
<title>??</title>のinnerTextを取得したいです。
要件としては、WinMac両方で動作するコードです。
そのため、IEを使うのは無しです。

発生している問題・エラーメッセージ

ソースコード中のhttpDom.parseError.reasonの部分で、属性と属性値の間に等号 (=) がありません。と出力されます。

該当のソースコード

vba
1Sub GetPage(url As String)
2    Dim httpDom As MSXML2.DOMDocument60
3    Set httpDom = New MSXML2.DOMDocument60
4
5    httpDom.async = False
6    httpDom.setProperty "SelectionLanguage", "XPath"
7    httpDom.setProperty "ProhibitDTD", False
8    httpDom.validateOnParse = False
9    httpDom.Load url
10    If httpDom.parseError.ErrorCode = 0 Then
11        Debug.Print "***********"
12        Debug.Print httpDom.SelectNodes("//title").Item(0).Text
13        Debug.Print "***********"
14    Else
15        Debug.Print httpDom.parseError.reason
16    End If
17    
18    Set httpDom = Nothing
19
20End Sub

補足情報（FW/ツールのバージョンなど）

GetPage関数の機能テストに使っているサイト

https://www.udemy.com/course/flutter-firebase-chat/

etherbeg

2021/08/13 23:05 編集

質問とは直接の関係はないのですが、MSXML2.DOMDocument60は、2年ほど前にVBAでプログラムを書いた時に、Macでは使えなかったような記憶があります。いま試しにMacのExcelで試してみましたが、"Dim httpDom As MSXML2.DOMDocument60" のところで、やはりコンパイルエラーが出ました。