Public Const softname = "Name"
If MsgBox("Запустить программу?", vbYesNo, softname) <> vbYes Then Exit Sub