Pastetool #58

Public Function JoinCollection(col As Collection, Optional Limiter As String) As String
    Dim i As Long
    For i = 1 To col.Count
        JoinCollection = JoinCollection & col(i) & Limiter
    Next i
    
    If JoinCollection <> "" Then
        JoinCollection = Left$(JoinCollection, Len(JoinCollection) - Len(Limiter))
    End If
End Function