Crea otro vector de solo 10 elementos con valores booleanos, entonces si encontras el 3 pones en el indice true, cuando terminas de recorrer tu otro vecor y completar, te quedan los que tenes en true...
EJ: Tenes que tener previamente un vector EJ: VECTOR1, con todos tus numero cargados
Código:
Dim VectorComprobar(0 To 9) As Boolean
Dim X As Integer
For X = 0 To "dimension vector 1"
VectorComprobar(vector1(X)) = True
Next X
Y listo al pollo.
Falta algoritmo y estructuras de datos. Por que se sabe poner IF THEN no significa que uno es programador.