Al posto del 2 puoi usare l'apposita costante

QueryUnloadConstants.vbAppWindows

Per rendere il codice piu' leggibile puoi scrivere

If UnloadMode = vbAppWindows Then ...