Dim collections()
collections = Array("A","B","C","D","E","F","G")


Dim newCollections()
Dim iCnt : iCnt = 0
Dim item

For Each item In collections
	If (CStr(item) <> "A" AND CStr(item) <> "B" AND CStr(item) <> "C") Then
		ReDim Preserve newCollections(iCnt)
		newCollections(iCnt) = item
		iCnt = iCnt + 1
	End If
Next


//결과 : Array("D","E","F","G")