Could somebody please help me?

[ConnorDarghaoui]

I need help with my VB code, which is giving me an error that I don't understand, could someone please help me, or could someone please show me how to fix it? I would really appreciate any advice or suggestions. Thanks in advance.

Proyect

Imports iTextSharp.text.pdf
Imports iTextSharp.text.pdf.parser
Imports OpenAI

Public Class Form1 'Declarar las constantes
    Const AUTH_TOKEN As String = “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”
    Const ENGINE_NAME As String = “curie”

    'Declarar las variables globales
    Private PdfText As String
    Private openFileDialogPdf As New OpenFileDialog()

    'Declarar las variables locales
    Dim pdfFile As String
    Dim pdfReader As PdfReader
    Dim question As String
    Dim openAI As OpenAIService
    Dim response As CompletionResult


    Private Sub BtnReadPdf_Click(sender As Object, e As EventArgs) Handles btnReadPdf.Click
        'Crear un diálogo para seleccionar un archivo PDF
        If openFileDialogPdf.ShowDialog() = DialogResult.OK Then
            pdfFile = openFileDialogPdf.FileName
            pdfReader = New PdfReader(pdfFile)
            PdfText = ""
            For i As Integer = 1 To pdfReader.NumberOfPages
                PdfText &= PdfTextExtractor.GetTextFromPage(pdfReader, i)
            Next

            'Guardar el texto del PDF en una variable global
            Me.PdfText = PdfText
        End If
    End Sub

    Private Sub BtnAskQuestion_Click(sender As Object, e As EventArgs) Handles btnAskQuestion.Click
        'Obtener la pregunta del usuario
        question = txtQuestion.Text

        'Verificar que haya texto del PDF y pregunta
        If Not String.IsNullOrEmpty(Me.PdfText) AndAlso Not String.IsNullOrEmpty(question) Then
            'Crear una instancia del servicio de OpenAI usando el token y el motor
            openAI = New OpenAIService(AUTH_TOKEN, ENGINE_NAME)
            'Enviar el texto del PDF y la pregunta y obtener una respuesta usando el método Get
            response = openAI.TextCompletion.Get(PdfText & vbNewLine & question)
            'Mostrar la respuesta generada en la caja de texto
            txtAnswer.Text = response.Text
        Else
            'Mostrar un mensaje de error si falta el texto del PDF o la pregunta
            MessageBox.Show(“Por favor, seleccione un PDF y escriba una pregunta.”)
        End If
    End Sub

End Class