This might work..

dim x as integer
dim Add as boolean
dim availarray(1)
x = 1
for i = 1 to ubound(totarray)
add = true
for j = 1 to ubound(usedarray)
if totarray(i) = usedarray(j) then
Add = false
next j
if add = true then
redim availarray(x)
availarray(x) = totarray(i)
x = x + 1
end if
next i


-----Original Message-----
I have 2 arrays from which I want to create a 3d. I need
to compare the
TotArray with the UsedArray and put the difference into
AvailableArray. For
example

TotArray
Ford
Chevy
Datsun
Nisan
Toyota

UsedArray
Ford
Chevy
Datsun

AvailableArray
Nisan
Toyota

I can't seem to get the


.