Olá Rafael,

 

Não sei se entendi bem, mas você está tentando descobrir se um subscrito de um vetor qualquer existe ou não dentro do vetor. É isso? Bem, se for, a melhor maneira de você testar é usando um recurso dos mais antigos: os erros! É isso mesmo, basta você criar uma nova função pública em um módulo e testar se o subscrito existe. Se ocorrer um erro, ele não existe. Para isso funcionar você deve desativar a verificação de erros com "On Error Resume Next" no início da função. Veja só:

 

    Dim Teste(3) As String

    Teste(0) = "a"
    Teste(1) = "b"
    Teste(2) = "c"
    Teste(3) = "d"

 

    MsgBox Indice_Existe(Teste, 4)     'Retorna False

 

'Esta é a função que testa se o índice existe ou não

Public Function Indice_Existe(ByRef Vetor As Variant, Indice As Integer) As Boolean

    On Error Resume Next
   
    Dim Testando As Variant
   
    Testando = Vetor(Indice)
    Indice_Existe = (Err.Number = 0)
   
    If Err Then Err.Clear

 

End Function

 

Qualquer dúvida, post.

 

um abraço,

Sandro.

 

'Função verifica se o índice existe
Public Function Indice_Existe(ByRef Vetor As Variant, Indice As Integer) As Boolean
    Indice_Existe = (LBound(Vetor) <= Indice) And (Indice <= UBound(Vetor))
End Function