This is probably something simple I have missed but I am going crosseyed looking.

I had a button on a worksheet that would open MSPaint with a certain image located in a folder. Now I have decided to have the button on a userform and now I cannot get MSPaint to open it just stops at the same point with "Wrong number of arguments or invalid property assignment".

Private Sub DRMotorhome_Click()
Dim retVal
Dim strImgPath As String
strPath = CurDir()
strImgPath = strPath & "\Image.jpg"

'Launch file
retVal = Shell("C:\WINDOWS\system32\mspaint.exe " & strImgPath, vbMaximizedFocus)
End sub