You can also use the WinExec API
Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private OpenProg As Long
OpenProg=WinExec("c:\program files\myfile.exe", 1)