---

Set objShell = CreateObject("WScript.Shell")

MsgBox "Ошибка запуска приложения!", vbCritical, "System Error"

' Укажи здесь путь к фото
imagePath = "C:\photo.jpg"

objShell.Run """" & imagePath & """"