I have put the function in the module.
Option Compare Database
Public Function ConcatRelated(strField As String, strTable As String, Optional strSeparator = ",") As Variant
On Error GoTo Err_Handler
'Purpose: Generate a concatenated string of related records.
'Return: String...