Dim psInfo As New System.Diagnostics.ProcessStartInfo(Application.StartupPath _
   & "\test.exe")
 
                Dim myProcess As New System.Diagnostics.Process
                myProcess.StartInfo.FileName = Application.StartupPath & _
                  "\test.exe"
                If myProcess.HasExited = True Then
                    MessageBox.Show("OK")
                End If