Try
' Hier kommt der Code hin, der einen Fehler/Ausnahme (engl. Exception) 
' verursacht
Dim z1 As Integer = 5 / 0    ' Verursacht Fehler
Catch ex As DivideByZeroException     ' fängt den Fehle rauf
     MsgBox(Prompt:="Es wurde versucht durch 0 zu dividieren)   ' auf Fehler" & _
       "reagieren
Catch ex As Exception    ' "Allesfänger"
     MsgBox(Prompt:=ex.Message)
Finally
     ' Aufräumarbeiten, Bsp. eine Datei schließen
End Try