vb[6] dimensione di un array

[xegallo]

fatti una funzione col trap dell'errore

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