Ok, pessoal, obrigado pelas dicas. Valeu mesmo.
Eu estava vasculhando as dicas neste site e consegui achar um exemplo de como fazer isso bem simples.
criei uma sub no módulo do sistema com a função FechaSistema co o seguinte código:
Public Sub FechaSistema()
Dim f As Form
For Each f In Forms
Unload f
Next
End Sub
Isto resolveu o problema. Acho que é isso. Se isso puder ajudar alguém, também, valeu.
Até mais.