Visual Basic - Index del winsock

Hola necesito ayuda ando creando un server de chat.
lo que pasa es que no se como hacer para encontrar segun el nombre del usuario el index del winsock es es lo que puse :

Function FindUserNumber(nick) As Integer
Dim i As Integer
Dim iConnections As Integer
Dim k As Integer
iConnections = Winsock1.ubound
For i = 1 To iConnections
If uUser(i).Connection = "Connected" Then
If UCase(uUser(i).Name) = UCase(nick) Then
k = i
DoEvents
End If
End If
Next i

End Function

y cuando pongo findusernumber(nick) me sale 0 espero que alguien me ayude gracias

Cesar,
los que debe hacer es :
FindUserNumber =i
en lugar de k = i

Keylor