Run Time Error "424' Object Required Error

Sub Button1_Click()
Dim WshShell As Object
Set WshShell = CreateObject(“WScript.Shell”)
WshShell.LogEvent
Set WshShell = Nothing


End Sub

I get error at set wshShell = CreateObject("WScript.Shell") (Run Time Error "424'  Object Required Error). Can anyone explain to me why the error occur and way to overcome it.