The I use include this lines
Set request = CreateObject(“MSXML2.XMLHTTP”)
With request
.Open “POST”, API, False
.setRequestHeader “Content-Type”, “application/json”
.setRequestHeader “Authorization”, “Bearer " & api_key
.send “{”“model””: ““gpt-3.5-turbo””, ““messages””: [{““content””:“”" & text & “”“,”“role”“:”“user”“}],” _
& “”“temperature”“: 1, ““top_p””: 0.7, ““max_tokens””: 2048}”
status_code = .Status
response = .responseText
End With
How could i change this?