皆さんこんにちは！
どうしても出来ないことがあるので、ちょっとご教授ください。
excelのVBAでpingを実行させ、その結果を特定のセルに表示させたいのですが、
どのようにすれば良いのでしょうか？

pingを実行したときに相手先からレスポンスがあった場合には【起動中】、
レスポンスが無かったときには【停止中】と表示させたいのです。

以上わかりましたら宜しくお願いします。