Private filepath As String

Private Sub cmd1_Click()
Dim filepath As String
ChDir "D:\Games\Battlefield 1942 The Road to Rome"
filepath = "D:\Games\Battlefield 1942 The Road to Rome\BF1942.exe"
dummy = Shell(filepath, vbNormalFocus)
End Sub

Private Sub cmd2_Click()
ChDir "D:\Games\Battlefield 1942 The Road to Rome"
filepath = "D:\Games\Battlefield 1942 The Road to Rome\BF1942.exe"
Call ShellExecuteMy(filepath, WIN_NORMAL)
End Sub