send message to receiver through server!!

i'm doing a chat system.....all the client will connect to server and server side will have a winsock to listen all the connection.....assume that server now all listening 5 connection......client A want send message to Client B and message will send to server before send to destination......my question is server side how to take the message and send to client B(assume that client using another winsock for receive message)???

this logic, i couldnt understand...but i got idea like this

private sub winsock_dataArrival()
dim message as string

winsock.getData message
'assume that i got the client IP address
winsocksend.remoteIP = "192.168.1.1"
winsocksend.remotePort = 1111
winsocksend.connect

winsocksend.sendData(message)

end sub

can this idea work????