ポートを閉じるには?

---

初めて投稿します。宜しくお願いします。

以下のようにして実行すると、
"ポートは既に開かれています"と
エラーメッセージが出てしまいます。

Private Sub CommOpen(num)

        If MSComm1.PortOpen Then MSComm1.PortOpen = False
        MSComm1.CommPort = 1
        MSComm1.Settings = "38400,n,8,1"
        MSComm1.PortOpen = True
        
End Sub

どうしたらポートが閉じれるのでしょうか?
教えていただけたら幸いです。

編集 削除

---

ソフト内で、他のポートを使用していませんか？

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。