Dim lSuccess As Boolean = True
 
lSuccess = IrgendeineFunktion(....)
 
If lSuccess Then
   lSuccess = IrgendeineFunktion2(...)
else
   exit oder was auch immer
end if 
 
 
If lSuccess Then
    lSuccess = IrgendeineFunktion3(...)
else
    exit oder was auch immer
end if
 
.........