Dim info As New ProcessStartInfo() info.FileName = "notepad.exe" info.RedirectStandardOutput = True info.UseShellExecute = False Using p As Process = Process.Start(info) p.WaitForExit() MsgBox("終了しました") End Using