VBAからGetメソッドを実行すると実行時エラーになる

Question

エクセルVBAからduck duck goという検索サイトにGETを実行すると実行時エラーになります

別のサイトだとJSONが返却されます（wikipediaサイトならOK)

何が原因がわかる方いらっしゃいますでしょうか？

Sub GetTest()

Dim url As String

url = "https://api.duckduckgo.com/?q=valley&format=json&pretty=-1&kl=jp-jp"

'url = https://en.wikipedia.org/w/api.php?action=query&format=json&generator=search&gsrnamespace=0&gsrlimit=5&gsrsearch=%27valley%27

Dim xmlHttp As Object

Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

Call xmlHttp.Open("GET", url, False)



Call xmlHttp.send

Dim strm As Object



If xmlHttp.readyState = 4 Then

    

Else

    Debug.Print "error"

End If

End Sub

Answer 1

自己解決しました。

サイトがTLS1.2を使用しているとMSXML2.XMLHTTPではえらーになるため

MSXML2.ServerXMLHTTPを利用する必要があります

https://qiita.com/nkojima/items/c11f6369f4c32b06c90b