Private Sub Winsock1_ConnectionRequest( _
  ByVal requestID As Long)
Dim AuthCon as Integer
 
AuthCon = MsgBox(Winsock1.RemoteHostIP & " is awaiting a connection to this" & _
  "server. Allow connection?", vbYesNo + 32, "client awaiting connection")
 
If AuthCon = 6 then
  ...
Else
  ....
End If
 
End Sub