accept -1

VB Code:

Private Function MyAccept(ByVal s As Long, ByRef Addr As sockaddr_in, ByRef addrlen As Long) As Long)
     Dim out As Long
     out = accept(s, Addr, addrlen)
     MyAccept = out
End Function

It errors without an error description. The value of it is -1 so obviously it's not working properly. My thought is it's erroring because at the time there isn't an incoming connection to accept, correct? If so, how can this be fixed? by using "listen"? or..?