[Solved] Expected ‘End’ vbs error [closed]

by 


If x=vbCancel then CreateObject("WScript.Shell").Run("http://bestanimations.com/Military/Explosions/earth-explosion-animated-gif-2.gif")

If x=vbOK then
        CreateObject("WScript.Shell").Run("https://www.cta.tech/Consumer-Resources/Greener-Gadgets/Recycle-Electronics.aspx")
        x=msgbox("If you don't, we might have a horrible future.",16,"Help the environment")
End If

3

solved Expected ‘End’ vbs error [closed]