Error con Funcion EstaArrayVacio()

[01munrra]

sludos!! estoy usando la siguiente funcion en visual basic.net:

Código vb.net:

Function EstaArrayVacio(vArray As Variant) As Boolean
    On Error Resume Next
    EstaArrayVacio = UBound(vArray)
    EstaArrayVacio = Err ' Error 9 (Subscript out of range)
End Function
 

y me sale este error:

Código vb.net:

Error   1   Un valor de tipo 'Microsoft.VisualBasic.ErrObject' no se puede convertir en 'Boolean'.
 

que sera??'

[Malenko]

El mensaje de error y el motivo es bastante básico y claro. Has definido en la firma de la función que devuelve un Boolean, en cambio estás devolviendo un objeto de tipo ErrObject.