Hier ist ein Beispiel Code um einen HTTP Get Request abzusetzen und die Ausgabe in einer Variable zu speichern.
Sub MakeHttpGetRequest()
Dim http As Object
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim url As String
url = "https://api.example.com/data" ' Hier die URL deines API-Endpunkts einfügen
http.Open "GET", url, False
http.send
Dim responseText As String
responseText = http.responseText
' Hier kannst du responseText verarbeiten, z.B. in einer MsgBox anzeigen
MsgBox responseText
Set http = Nothing
End Sub