SendKeys (2)

Option Explicit
Dim RetVal As Double 'Must be double, or Error will occur

Private Sub Command1_Click()
RetVal = Shell("C:\program files\internet explorer\IEXPLORE.exe")
'In theory, ANY path could be entered here

End Sub

Private Sub Command2_Click()
AppActivate RetVal
'This will give focus to the program started with the

'Shell() function.

End Sub