myWinsock.LocalPort = myPortNo
      myWinsock.Listen

myWinsock.Connect TCPAddress, myPortNo

Private Sub myWinsock_ConnectionRequest(ByVal RequestID As Long) 
   ' Pass the value of the requestID parameter to the Accept method.
   myWinsock.Accept RequestID 
End Sub

Private Sub myWinsock_DataArrival(ByVal bytesTotal As Long) 
   Dim strData As String 
   ' Read the incoming data
   myWinsock.GetData strData, vbString 
   ' Process message ....
   ' ....
End Sub

Private Sub Form_Load() 
   Set Winsck = New clsWinsock 
   ' There's no need to supply the TCP address
   ' The port number is arbitrary, but must be the same in both Server and Client, eg: 102
   '-------- Use the next three lines for a server.
   Me.Caption = "Winsock Server" 
   Text1.Text = "Greeting from Server" 
   Call Winsck.MakeConnection(Winsock1, "", 102, True, Timer1, Timer2) 
   '-------------------------------------------END for Server
   ' You must supply the TCP address of the Server, eg: "192.168.0.1"
   '-------- Use the next three lines for a client.
   ' Me.Caption = "Winsock Client"
   ' Text1.Text = "Hello Server, this is Client calling"
   ' Call Winsck.MakeConnection(Winsock1, "192.168.0.1", 102, False, Timer1, Timer2)
   '-------------------------------------------END for Client
   lblStatus.Caption = "No Connection" 
End Sub

Public Sub MakeConnection(theWinsock, theTCPAddress, PortNo, beingAServer, Timer1, Timer2) 
   On Error Resume Next 
   Set myWinsock = theWinsock 
   Set DeadManTimer = Timer1  ' Use Timer1 as DeadManTimer
   DeadManTimer.Enabled = False  ' Disable DeadManTimer initially
   DeadManTimer.Interval = 2000  ' 2 seconds
   Set ReConnectTimer = Timer2  ' Use Timer2 as ReConnectTimer
   ReConnectTimer.Enabled = False  ' Disable ReConnectTimer initially
   ReConnectTimer.Interval = 2000  ' 2 seconds
   TCPAddress = theTCPAddress  ' the address may also be the server computer name, i.e: "server01"
   myPortNo = PortNo  ' same Port No. must be used for both server and client
   IamServer = beingAServer 
   ' No Connection initially
   ConnectionEstablished = False 
   ' Server listens , Client connects, both refreing to the same Port No.
   If IamServer Then 
      myWinsock.LocalPort = myPortNo 
      myWinsock.Listen 
   Else 
      myWinsock.Connect TCPAddress, myPortNo 
   End If 
   ' Schedule to reconnect
   ReConnectTimer.Enabled = True 
End Sub

<V>Cardkey 1234 Valid entry<E>Cardkey 4356 Exit<I>Cardkey 6423 Invalid Cardkey

Dim i, AMessage 
Dim DString as clsString 
Set DString = New clsString 
' prefix the dummy character "*"
IncomingMessage = "*" & IncomingMessage 
DString.Text = IncomingMessage 
DString.Delmiter = "<" 
' Ignore the first token which is the dummy character "*"
For i= 2 to DString.TokenCount 
   AMessage = "<" & DString.TokenAt(i) 
   Select Case Left(AMessage,3) 
   Case "<E>" 
      ' Process Exit Cardkey
   Case "<I>" 
      ' Process Invalid Cardkey
   Case "<V>" 
      ' Process Valid Entry Cardkey
   End Select 
Next