Active x image code advice

[ipbr21054]

I have an image that had a macro on it of which is shown below.

Sub OpenEpcMc()
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run Chr(34) & "C:\Users\Ian\Desktop\HONDA EPC FILES\EpcMc.Bat" & Chr(34), 0
Set WSHShell = Nothing
End Sub

That image has now be changed to an active x image.

Please advise the code to open it.