Private Sub Application_BuildFinish () ' Event when build is finished MsgBox "Prospector has finished building all programs." End Sub