Excel VBA OpenRouter Integration

I need a compact, well-commented VBA routine that will let me type a prompt in one cell and watch OpenRouter’s plain-text reply appear in another. I’m working in Excel 2019, so the code must run smoothly there without any external add-ins.

Here’s the flow I have in mind: cell A1 contains, say, “write a poem about a cat”. On running the VBA the code sends that string to the OpenRouter.ai completion endpoint using my API key (I’ll paste it into a constant or Config sheet myself). The JSON response arrives, your code parses out the assistant’s message, strips HTML or other markup if present, and writes only the readable text into B1 (or whichever target cell you make configurable).

Graceful error handling is essential: time-outs, 4xx / 5xx responses, or malformed JSON should generate a friendly message in the sheet rather than a crash. Beyond that I don’t need advanced key-management; just leave a clearly marked spot for my key.

Deliverables:
• A macro-enabled workbook (VBA) module I can import, already tested end-to-end with a sample prompt.
• Brief inline comments so I can adapt the source/target cell addresses later.
• A short note explaining any Windows API calls, references, or library flags I must enable.

If this sounds straightforward to you, I’m ready to supply the key and get writing prompts flowing straight from Excel once you accept the job.