Activating MS paint from Excel thru VBA

Hi,
Please can somebody help me on how to call MS paint from MS excel (2003) and paste the picture in clipboard to paint and save the file in paint. Following is the macro I wrote in VBA and it is not working.

Sub EditPics()
 Selection.Copy
 TheEditor = "D:\WINDOWS\system32\mspaint.exe"
 TaskId = Shell(TheEditor, 1)
 AppActivate TaskId
 Application.SendKeys "^{V}", True
 Application.SendKeys "^{S}", True
End Sub