lngRet = send(lngSock, ByVal bytData(0), 100, 0)
lngRet = recv(mlngSock, ByVal bytRec(0), 100, 0)

じゃね？