Função Excluir Item de Array

Procurei e não achei uma função para excluir um elemento de uma array (como sempre, se existir, por favor me indiquem).

Colocando aqui a função que fiz para resolver o meu problema, pode ser adaptada a cada caso.

A função retorna uma cópia do vetor excluindo os itens iguais ao elemento fornecido.
Os paramentros são a array original e o elemento a ser procurado e excluido.

Código:

Function RetiraElementoArray(pArray, pElemento)
Dim vElemento
Dim vArrayFinal()

vArray = pArray
vElemento = pElemento
k = 0

For i = 0 To UBound(vArray)
    If vArray(i) <> pElemento Then
        ReDim Preserve vArrayFinal(k)
        vArrayFinal(k) = vArray(i)
        k = k + 1
    End If
Next

RetiraElementoArray = vArrayFinal

End Function

Teste:

Código:

Sub testefunc()
Dim vA(), vB()
vA = Array("A", "B", "C", "D", "A", "E")
vB = RetiraElementoArray(vA, "A")
For i = 0 To UBound(vB)
    MsgBox vB(i)
Next
End Sub

Retorna a matriz {"B","C","D","E"}

Olá Thiago Costa,

Obrigado pela partilha, o fórum agradece.

Abraço