VBA Excel - Aprire paint di windows

[ibernet]

come non detto.. ci son riuscito:
Sub prova()
Dim a As Double
a = Shell("mspaint.exe", vbNormalFocus)
End Sub