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 += "'"