Private Function Beispiel() as Boolean
On Error Goto BeispielErr
     'Programm
Exit Function
BeispielErr:
     'Fehlermitteilung
End Function

Private Function Beispiel() as Boolean
Try
     'Programm
Catch ex As Exception
      'Fehlermitteilung
      Exit Function
End Try
End Function