Here is a sample of the response that we get back.

Dear Potential Student,\n\nI am writing to offer guidance and insight as you contemplate pursuing a degree in Information Technology (IT). The field of IT is a dynamic and rapidly evolving industry that offers a myriad of opportunities for growth and advancement. By embarking on a journey to earn an IT degree, you are positioning yourself to be at the forefront of innovation and technological advancement.\n\nIn considering the pursuit of an IT degree, it is crucial to recognize the immense value and significance of such a credential in today's digital age. With businesses and organizations increasingly reliant on technology to drive productivity and efficiency, the demand for skilled IT professionals has never been higher. By equipping yourself with a solid foundation in IT principles, theories, and best practices, you will be well-prepared to meet the challenges and demands of the modern workforce.\n\nFurthermore, an IT degree not only provides you with technical skills and expertise but also cultivates critical thinking, problem-solving, and analytical abilities that are highly sought after in today's competitive job market. As you embark on your educational journey, I encourage you to engage with faculty, peers, and industry professionals to expand your knowledge and network within the field of IT.\n\nIn conclusion, pursuing a degree in Information Technology is a rewarding and intellectually stimulating endeavor that can open doors to a multitude of career opportunities and professional growth. I applaud your decision to pursue higher education in this field and am confident that you will find it to be a fulfilling and enriching experience.\n\nSincerely,\n[Your Name]

Just say something like:

S = Replace(S,"\n",vbNewLine)

And make sure your field is a long text field and that you have the Enter Key Behavior set to new line in field.

Replace Function

Rick, that is exactly what I have, and the field in the table is set to long text, and the ending text still has the /n in them. Now I do not know how to set the Enter Key behavior to a new line.

Private Sub OpenAIBtn_Click()

    Dim S As String
    
    StatusBox = ""
    S = AskOpenAI(Nz(MyText, ""), BotCombo)
    S = Trim(FindBetween(S, """content"": """, "},"))
    OpenAIResponse = Replace(S, "/n", vbNewLine)

End Sub

/n isn't the same as \n

Oh crap, I've been staring at this for the whole week and never once caught that.  As soon as I changed that it worked great! thanks, Alex ever so much and thanks Rick for the quick reply.

I saw that in your original question, I just assumed you changed it when you were typing here. :)

And on top of it, I looked back at the original application and there already was VBA in there taking care of it. So I must have removed it somewhere along the line when updating other code. Thanks again for the extra eyes.