I have the following code which shows in the text box "notes" (in a userform) the cell comment if any

This works fine however I would like this text box to display all the comments for each cell one after the other after a word wrap.

here is my code working for the first cell found with comments but it overwrite the previous comments with the last found

  On Error Resume Next
    Dim rngcomments, c as range
    
    Set rngComments = WSH.Range(Cells(IROW, 1), Cells(IROW, 36))
    On Error GoTo 0

    On Error Resume Next
   
 rngComments.SpecialCells(xlCellTypeComments).Select

  For Each C In rngComments
  C.Select
 Me.NOTES.Value = WSH.Cells(1, ActiveCell.Column) & ": USD " & Format(ActiveCell(1), "#,##0.00") & " - " & Mid(ActiveCell.Comment.Text, 18) & Chr(10)
 Next C
 
 
 On Error GoTo 0

     
End Sub
Basically i would like to add after CHR(10) the next cell comments something like

Me.NOTES.Value = WSH.Cells(1, ActiveCell.Column) & ": USD " & Format(ActiveCell(1), "#,##0.00") & " - " & Mid(ActiveCell.Comment.Text, 18) & Chr(10) & next c.(1, ActiveCell.Column) & ": USD " & Format(ActiveCell(1), "#,##0.00") & " - " & Mid(ActiveCell.Comment.Text, 18) & Chr(10) & next c etc....
can someone tell me if feasible and how to do it?