Hi,

does this help?

If TextBox4.Text < "" Then
With ActiveSheet.Cells(Nextrow, 2).AddComment
..Visible = False
if instr(,textbox4.value,chr(13))<0 then
..text worsheetfunction.substitute(textbox4.value,chr(13) ,"")
else
..Text TextBox4.Text
end if
..Shape.TextFrame.AutoSize = True
End With
End If

Regards,
Ivan