' Create a Connection Object Dim loFactory = CreateObject("S2TCPComms.TCPConnectionFactory") ' Connect to Remote Site Try Dim loConnect = loFactory.Connect(sAddress, Val(sPort)) lConnectionOk = True Catch ex As Exception lConnectionOk = False End Try If lConnectionOk Then Try loConnect.sendmessage(sParsedMessage) ' Disconnect loConnect.disconnect() Catch ex As Exception End Try End If