Ok I found an even easier solution to this :)
Dim i As Integer, iPrevious As Integer, strNames As String, tempName As String
strNames = DLookup("column6", "table1")
'add a trailing semicolon to check end of string later
If Right(strNames, 1) <> ";" Then
strNames = strNames & ";"
End If
i...