Private Sub cmdStart_Click()
 
wsk(0).LocalPort = CInt("443")
wsk(0).Close
wsk(0).Listen
 
End Sub
 
Private Sub wsk_ConnectionRequest(Index As Integer, ByVal requestID As Long)
 
txtLog = txtLog & "Verbindung von " _
            & wsk(0).RemoteHostIP & " an Port " _
            & wsk(0).LocalPort & vbCrLf
 
wsk(0).Close
wsk(0).Listen
End Sub