Function GT(prompt As String) As String
  ' I Replace MY_API_KEY with my actual API key
  Dim apiKey As String: apiKey = "API_KEY"
  Dim apiEndpoint As String: apiEndpoint = "https://api.url.com/v1/"
  
  Dim params As String: params = "prompt=" & prompt & "&max_tokens=2048&model=text-davinci-002&stop=.!?"
  
  Dim apiCall As String: apiCall = apiEndpoint & "?" & params
  
  Dim xmlHttp As Object: Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
  
  xmlHttp.Open "POST", apiCall, False
  xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  xmlHttp.setRequestHeader "Authorization", "Bearer " & apiKey
  
  xmlHttp.send
  
  Dim response As String: response = xmlHttp.rText
  
  Dim responseObject As Object: Set responseObject = JsonConverter.ParseJson(response)
  Dim generatedText As String: generatedText = responseObject("data")(0)("text")
  
  GT = generatedText
End Function