Visual Basic - Index del winsock

ya hize la funcion para hayan el index del winsock segun el nombre :

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

pero luego cuando recibo el nombre de pablo pongo
dim i as integer
i = findusernumber(pablo)
y me sale 0 porque?
gracias de ante mano