Word Wrap VBA To Specific Column Width?

I have a database in excel, here's some sample data.

When they click the print button in Cell A2, up comes my form

When the print tags button is pressed, my secondary sheet is populated with the cell they clicked on

Now it's using a font, calibri 11, which isn't proportional but I was wondering if there's a way in VBA to "auto" detect the max width and place words on the next row accordingly (like a word wrap). Here's what I need it to look like:

Here's my existing code to place the comments as is:

Code:

entireComment = "Comments: " & Range("P" & i)
.Range("A" & cnt + 11).Value = Mid(entireComment, 1, 33)
If Len(entireComment) >= 36 Then

[Code]....