С указанием полного пути будет примерно так:  
 
Sub test()  
   ПутьКФайлу = """D:\шедевры\DSC00987.JPG"""  
   CreateObject("WScript.Shell").Run ПутьКФайлу  
End Sub  
 
 
PS: В данном случае можно было написать и так:  
ПутьКФайлу = "D:\шедевры\DSC00987.JPG"  
 
Тройные кавычки нужны в том случае, если в пути файла попадаются пробелы  
(например, ПутьКФайлу = """D:\Моя папка\DSC 00987.JPG""")