JOIN

its a method to concatenation values in a string variable , you can use this trick to avoid a Loop for this purpose.

Sub MakeString()

    Dim strSting As String

    strSting = Join(Application.Transpose(Selection), ",")

    Debug.Print strSting

End Sub