Visual basic .Net (Usando .net 6) para acceder a la IA por medio de la API

API
1

Imports System.Net.Http
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports OpenAI.Net.Models.OpenAIDefaults

Public Class Inteligencia_Artificial
Private httpClient As HttpClient

Public Sub New()
    httpClient = New HttpClient()
    httpClient.BaseAddress = New Uri("https://api.openai.com")
    httpClient.DefaultRequestHeaders.Authorization = New Headers.AuthenticationHeaderValue("Bearer", "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■lWLO51dm")
    httpClient.DefaultRequestHeaders.Add("Organization", "org-laS6rpIWaf6jE3DtTKVghotF")
End Sub

Public Function EnviarPregunta(pregunta As String) As String
    ' Crear un objeto JSON con la pregunta
    Dim contenido As New StringContent(JsonConvert.SerializeObject(New With {.prompt = pregunta, .model = "text-davinci-002", .language = "es"}), Encoding.UTF8, "application/json")
    Dim respuesta As HttpResponseMessage = httpClient.PostAsync("/v1/engines/davinci/completions", contenido).Result
    Dim json As String = respuesta.Content.ReadAsStringAsync().Result
    Dim datos As JObject = JObject.Parse(json)
    Dim respuestaIA As String = datos("choices")(0)("text").ToString()
    Return respuestaIA
End Function

End Class

NO envía respuesta