Como puedo Abrir una imagen con Paint

[bubilo]

Dim x
x = Shell("mspaint.exe " & "c:\imagen.bmp", vbNormalFocus)

o si queres cambia mspaint por el programa que queres que que ejecute la imagen

pero si pones por ej: el photoshop en vas a tener que poner toda la ruta

x = Shell("c:\archivos de programa\adobe\potochop.exe " & "c:\imagen.bmp", vbNormalFocus)