The following example will handle correctly folder names that contain spaces.

Option Explicit

Dim wshShell
Dim TargetFolder

Set wshShell = WSH.CreateObject("WScript.Shell")
TargetFolder = "C:\Program Files"

wshShell.Run """" & TargetFolder & """"