Dim nSize As Long
 
  On Local Error Resume Next
  nSize = UBound(myArray) - LBound(myArray)
  If Err Then
    MsgBox "Array noch nicht dimensioniert"
  Else
    MsgBox "Größe des Arrays: " & nSize
  End If
  On Local Error GoTo 0