Трябва да се запитате дали имате нужда от общо решение (друго е от Алън Браун ) или ако имате нужда от него само за настоящата цел. Ако наистина имате нужда от това само веднъж, направете го по лесния начин.
От друга страна, когато свързвате списъци във VBA код, се възползвайте от един трик, научен ми от дългогодишния гуру на Access Тревър Бест, а това е да залепите разделителя в началото на всяка стойност и след това да използвате Mid(), за да го премахнете изключен. Вместо това във вашия цикъл през дъщерните записи:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...използвайте това вътре в цикъла:
strOutput = strOutput & ", " & NewValue
...и след това, когато излезете от цикъла, премахнете водещия разделител:
strOutput = Mid(strOutput, 3)
Това има последици навсякъде и опростява кода за конкатенация в цял набор от контексти.