In VB non puoi eliminare un elemento del vettore shiftando gli altri indietro di uno....

Lo devi fare da codice.

Basta fare

Vett(i)=vett(i+1)

per i che va da numero estratto a totale-1

e poi
redim preserve Vett(totale-1)