Powinieneś zadać sobie pytanie, czy potrzebujesz ogólnego rozwiązania (inne jest autorstwa Allena Browne'a ) lub jeśli jest to potrzebne tylko w bieżącym celu. Jeśli naprawdę potrzebujesz tego tylko raz, zrób to w prosty sposób.
Na marginesie, kiedy łączysz listy w kodzie VBA, skorzystaj ze sztuczki, której nauczył mnie długoletni guru Access, Trevor Best, a to polega na umieszczeniu ogranicznika na początku każdej wartości, a następnie użyciu Mid(), aby go usunąć wyłączony. Zamiast tego w pętli przez rekordy podrzędne:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...użyj tego wewnątrz pętli:
strOutput = strOutput & ", " & NewValue
...a potem, gdy wyjdziesz z pętli, usuń wiodący ogranicznik:
strOutput = Mid(strOutput, 3)
Ma to konsekwencje w każdym miejscu i upraszcza kod do łączenia w wielu kontekstach.