ModbusRTU does not have a "connection" per se as doesn't something like an Ethernet socket. The only way to know if there is a connection is to perform a read and see if it fails.
Try
ModbusRTUCom1.Read("40001")
MsgBox ("Successful connection")
Catch ex as exception
MsgBox ("Failed")
End Try