Visual Basic - Comando shell

Tengo esta linea para ejecutar una aplicacion externa:

ShellExecute Me.hwnd, vbNullString, "C:Archivos de programacarpetaprograma.exe", vbNullString, "C:", 1

Como archivos de programas puede varias en distintos equipos y paises he puesto esto pero no me funciona:

ShellExecute Me.hwnd, vbNullString, "%ProgramFiles%carpetaprograma.exe", vbNullString, "C:", 1

Como deberia de ser.

Dim path As String
path = Environ("programfiles") & "carpetaprograma.exe"
ShellExecute Me.hwnd, vbNullString, path, vbNullString, vbNullString, 1

Muchas gracias funciona perfectamente