On Error goto Fehler
 
sInhalt = txt_ReadAll(App.Path & "\language.csv")
 
'(hier den restlichen Programmcode einfügen)
 
Exit Sub 'bzw. Exit Function, je nachdem, wo dieser Code stehen soll
 
Fehler:
msgbox "Es ist ein Fehler aufgetreten:" & vbcrlf & err.description, vbOKOnly + _
  vbExclamation, "Fehler"