Adding Comment List using VBA

Below is the code I used to add a comment from text in another cell. I want the comment to pull from a range of cells so it shows up as a list. In the attached file, I want the comment to show I3 & I4 on separate lines. Thanks.

Sub Comment()
    Sheets("OEM Price Discounted").Select
    Range("C3").Select
    Selection.ClearComments

    With Worksheets("oem price discounted").Range("C3").AddComment
        .Visible = False
        .Text Format([i3])
    End With
    Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub