>>669
8018って既にポートが開いてるとかいうエラーじゃない？
だとしたら　

if MSComm1.PortOpen = False then
　　　　MSComm1.PortOpen = True
else
msgbox "既に開いてる"
end if

みたいにしてみては？