Originariamente inviato da xegallo
fatti una funzione col trap dell'errore

codice:
function Valorizzato (byref arr() as tipo) as boolean
on error goto Hell
dim a as integer
   a = lbound(arr)
   Valorizzato = true
exit function
Hell:
   Valorizzato = false
end functiom
grazie xe