Combine multiple rows into one cell

SELECT OrgID, OrgRef
FROM OrgTable
ORDER BY OrgID;

Sub Write_Exceptions_To_Table()

Dim db As Database
Dim rsGet As Recordset
Dim rsWrite As Recordset
Dim varOrgID As variant
Dim varNextOrgID As variant
Dim strBuild As String
Dim intNumElements As Integer

Set db = CurrentDb()
Set rsGet = db.OpenRecordset("SELECT OrgID, OrgRef FROM OrgTable ORDER BY OrgID, OrgRef")
Set rsWrite = db.OpenRecordset("tbl_OrgBundled")

With rsGet
    
    Do While Not .EOF
        varOrgID = ![OrgID]
        .MoveNext
        If Not .EOF Then
            varNextOrgID = ![OrgID]
        Else
            varNextOrgID = "EOF"
        End If
        .MovePrevious
        
        strBuild = strBuild & ![OrgRef] & ","
        intNumElements = intNumElements + 1
        
        If Not (varOrgID = varNextOrgID) Then
          'add record to table
            strBuild = Left(strBuild, Len(strBuild) - 1)
            With rsWrite
                .AddNew
                !OrgID = rsGet![OrgID]
                !OrgRefBundled = strBuild
                !OrgRefCount = intNumElements
                .Update
            End With
          're-initialize variables
            strBuild = ""
            intNumElements = 0
        End If
        
        .MoveNext
            
    Loop
    
End With

rsGet.Close
rsWrite.Close

Set rsGet = Nothing
Set rsWrite = Nothing
Set db = Nothing
    
End Sub