Visual Basic - FindOpenWinsock ?????

FindOpenWinsock me lo detecta VB como una variable no definida... lo unico que quiero es poder pasarle un mensaje a cada uno de los 10 ordenadores que tengo en red. Quiero poder saber a cual le mando y si es posible qu eme puedan contestar (parecido a chat) pero que sea organizado (selecciono a cual de los 10 le mando texto). Quieo pasarle un dato a cada ordenador por separado. No entiendo casi nada de todo esto de las redes, me tranco en todas las pequeñeces... como crear una matriz de winsock (decia array y no entendia). Por favor alguien podria darme una manota para poder hacer esto que para mi es un mundo... Muchisimas Gracias...

Lo siento, me equivoque al escribir, FindOpenWinsock no es ninguna función de VB, es una de las funciones que te pasé pero con el nombre cambiado, te pego de nuevo el código, espero esta vez te sirva :)
Por cierto array de winsocks es lo mismo que matriz de winsocks...

Private Sub wsEscucha_ConnectionRequest(ByVal requestID As Long)
Dim Index As Integer
Index = CreaWinsock '-->Llama a la función que crea el array
' de winsocks
'Acepta la petición usando el winsock creado
wsArray(Index).Accept requestID
End Sub
Private Function CreaWinsock()
Dim X As Integer
'Define la vble como static para q mantenga su valor
Static LocalPorts As Integer

' Recorre el array de winsocks (desde el 0 hasta el máximo _
de la matriz).
For X = 0 To wsArray.UBound

' Si encuentra uno que el estado es 0, lo que significa q _
está cerrado, que use ese índice para el winsock
If wsArray(X).State = 0 Then
CreaWinsock = X

' Salimos de la función ya q tenemos asignado el winsock
Exit Function
End If
Next X

' Ninguno está cerrado así q crea uno
Load wsArray(wsArray.UBound + 1)

' Asegura que no hay conflictos en los puertos locales
LocalPorts = LocalPorts + 1
wsArray(wsArray.UBound).LocalPort = wsArray(wsArray.UBound).LocalPort + LocalPorts
' y devuelve su indice
CreaWinsock = wsArray.UBound
End Function

Espero esta vez si te sirva.