Use the Filter function...
aTmp = Filter(aOrig, aOrig(x), False, vbBinaryCompare)
ReDim aOrig(UBound(aOrig) - 1)
aOrig = aTmp
Be aware that this treats the comparison argument (aOrig(x)) as a string and will exclude all elements containing that string [i.e.: (a.asp, b.asp, aa.asp, ab.asp...