Resource Usage View - Is it possible to display resource names

In Project 2013, I have used the attached VBA macro to populate the text 2 field with the resource name. However, what I wish to do is populate that field with the full list of resource names assigned to each "assignment".

Sub CopyResourcesToText2()
    Dim r As Resource, A As Assignment
    For Each r In ActiveProject.Resources
        For Each A In r.Assignments
            A.Text2 = A.ResourceName
        Next A
    Next r
End Sub