Какие переменные правильные в сообщениях?
Btn, BtnCode, nResult, Result?
Dim oShell, nResult
Set oShell = WScript.CreateObject("WScript.Shell")
nResult = oShell.Popup("Сообщение", 0, "Заголовок", vbInformation)
------------------------------------------------------------------
Dim WshShell...