OK Cancel Response for Application using VBS

Dim LResponse
LResponse = MsgBox("Do you wish to continue", vbOKCancel, "Installation")

If LResponse = vbOK Then
  dim shell
   set shell=createobject("wscript.shell")
   shell.run "Install.cmd"
Else
 
End If