Private Sub DoCode()
    If Not IrgendeineFunktion(....) Then Exit Sub
    If Not IrgendeineFunktion2(....) Then Exit Sub
    '...
End Sub

If Not IrgendeineFunktion(....) Then GoTo Fertig
If Not IrgendeineFunktion2(....) Then GoTo Fertig
'...

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov