Как Вы перемещаете Схемы базы данных SQL Server в другую Базу данных?

Я предлагаю написать функцию Join, чтобы объединить уникальные части обратно в одну строку (имеется один доступный для массивов, но не для какой-либо другой коллекции):

Function Join(Iterable As Variant, Optional Delimiter As String = ",") As String
    Dim notFirst As Boolean
    Dim item As Variant
    For Each item In Iterable
        If notFirst Then
            Join = Join & Delimiter
        Else
            notFirst = True
        End If
        Join = Join & item
    Next
End Function

Затем используйте Split, чтобы разбить строку на массив и Scripting.Dictionary, чтобы обеспечить уникальность:

Function RemoveDuplicates(s As String, Optional delimiter As String = ",") As String
    Dim parts As String()
    parts = Split(s,delimiter)
    Dim dict As New Scripting.Dictionary
    Dim part As Variant
    For Each part In parts
        dict(part) = 1 'doesn't matter which value we're putting in here
    Next
    RemoveDuplicates = Join(dict.Keys, delimiter)
End Function