Sub BIGSUB
...Lots of code...
Mail(some variable, email, etc)
..More code...
Mail(some variable, email, etc)
..even more code...
Mail(some variable, email, etc)
End Sub
Sub MAIL(Variable,variable,variable)
...some code that sets up a mail using smtp...
Wait For SMTP_MessageSent(Success As Boolean)
End sub