<p>I'm trying to handle Winsock_Connect event (Actually I need it in Excel macro) using the following code:</p>

<pre><code>Dim Winsock1 As Winsock 'Object type definition

Sub Init()
    Set Winsock1 = CreateObject("MSWinsock.Winsock") 'Object initialization
    Winsock1.RemoteHost = "MyHost"
    Winsock1.RemotePort = "22"
    Winsock1.Connect

    Do While (Winsock1.State &lt;&gt; sckConnected)
        Sleep 200
    Loop
End Sub

'Callback handler
Private Sub Winsock1_Connect()
    MsgBox "Winsock1::Connect"
End Sub
</code></pre>

<p>But it never goes to Winsock1_Connect subroutine although Winsock1.State is "Connected".
I want to use standard MS library because I don't have administrative rights on my PC and I'm not able to register some custom libraries.
Can anybody tell me, where I'm wrong?</p>

Are you stuck using MSWinsock?
Here
is a site/tutorial using a custom winsock object.
Also... You need to declare Winsock1
WithEvents
within a "Class" module:
```
```
Private WithEvents Winsock1 As Winsock
```
```
And finally, make sure you reference the winsock ocx control.
Tools -> References -> Browse -> %SYSEM%\MSWINSCK.OCX