On Error Resume Next
Dim nCount As Long
nCount = UBound(myArray)
If Err <> 0 Then
  MsgBox "Nicht dimensioniert!"
Else
  ' Array löschen
  Erase myArray
End If
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de