title: MSWinsock.Winsock event handling in VisualBasic
body: <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>