' Fehlerbehandlung aktivieren
Err.Number = 0
On Error GoTo ErrHandler
 
blabla
 
' Ende wenn kein Fehler
readtext = 0                              ' kein Fehler
Exit Function
 
 
ErrHandler:
' Objekte zerstören
Erase Array_xy
 
readtext = Err.Number                      ' Fehler!
End Function