Ho un arri di stringhe

codice:
Dim Nomi()           As String
Lo inizializzo cosi

codice:
ReDim Nomi(0)        As String
La riempo cosi

codice:
ReDim Preserve Nomi(UBound(Nomi) + 1) As String
Nomi(UBound(Nomi)) = Mauro
Poi una volta riempita ci guardo dentro (fa molto informatico hghghg)

codice:
For i = 1 To UBound(Nome)
If Nome(i) = Mauro Then
:master::master::master::master:
qui dovrei fare in modo di cancellare nel mio arry Mauro
:master::master::master::master:

codice:
next

Grazie