sktClose
This method terminates a TCP connection from either the client or server applications. If the object is declared using the WithEvents option, then an OnClose event is available in the script environment but will not fire with the use of this method but only if the connection is closed by the server.
Syntax: oSocket.sktClose
Group :Socket Object
Example:
Dim WithEvents oSocket As Socket ' module level Dim
Set oSocket = New Socket
If oSocket.State = sckConnected Then oSocket.sktClose