Ошибка VBA Компонент ActiveX не может создать объект

Я получаю указанную выше ошибку при попытке получить случайные числа с сайта random.org. Ошибка возникает в строке «Set objXMLHTTP = CreateObject («MSXML2.ServerXMLHTTP.4.0»)». У меня нет большого опыта подключения к веб-сайтам из vba, поэтому я не уверен, что делаю неправильно.

Sub pick_random()
Dim x As Long
Dim randomInt As Integer

x = Worksheets(ActiveSheet.Name).Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
randomInt = GetRndNos(1, 1, x)
randomStudentFirst = ThisWorkbook.Sheets(ActiveSheet.Name).Cells(randomInt, 1).Value
randomStudentLast = ThisWorkbook.Sheets(ActiveSheet.Name).Cells(randomInt, 2).Value
randomStudent = randomStudentFirst + " " + randomStudentLast

MsgBox "Selected: " & randomStudent
End Sub


Function GetRndNos(NUM As Long, MIN As Long, MAX As Long) As Variant
Dim objXMLHTTP As Object
Dim strURL As String
Dim strResp
Dim I As Long
strURL = "http://www.random.org/integers/"
strURL = strURL & "?num=" & NUM & "&min=" & MIN & "&max=" & MAX & "&col=1&base=10&format=plain&rnd=plain"
Debug.Print strURL
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")

With objXMLHTTP
    .Open "GET", strURL, False
    .send

    strResp = .responseText

    GetRndNos = Split(strResp, Chr(10))

End With

Set objXMLHTTP = Nothing
End Function

Любая помощь приветствуется, спасибо!