Option Explicit
Sub Test()
Dim values As Variant
Dim QNr As Integer
Dim i As Long
values = Array("Kirsche", "Orange", "Gurke", "Rhabarber")
QNr = FreeFile
Open "D:\test.csv" For Append As #QNr
Print #QNr, """"; Join(values, "_1st"";"""); "_1st"""
For i = LBound(values) To UBound(values)
If i < UBound(values) Then
Write #QNr, values(i) & "_2nd",
Else
Write #QNr, values(i) & "_2nd"
End If
Next
Close #QNr
QNr = 0
End Sub