Code:
Dim aStuff(20) As String
Dim i As Int32
Dim s As String
Dim csv As String
For i = 0 To 20
aStuff(i) = Chr(65 + i)
Next
For Each s In aStuff
If Len(csv) > 0 Then
csv += "',"
End If
csv += "'" + s
Next
csv += "'"
Will give you:
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U'