Dim StrChr As String StrChr = Chr(34) Shell "explorer " & StrChr & "C:\Program Files" & StrChr, vbNormalFocus