Creating TCPClient from Socket

I can't seem to modify the code from "101 VB .NET Samples - Advanced .NET Framework (Networking) - Use Sockets" from MSDN to allow the server program to accept a socket rather than a tcpclient. This is the important code:

    Private Sub DoListen()
        listener = New TcpListener(System.Net.IPAddress.Any, PORT_NUM)
        listener.Start()
        Do
            Dim client As New UserConnection(listener.AcceptTcpClient)
            AddHandler client.LineReceived, AddressOf OnLineReceived
            UpdateStatus("New connection found: waiting for log-in")
        Loop
    End Sub

I need to change it to something like this:

    Private Sub DoListen()
        listener = New TcpListener(System.Net.IPAddress.Any, PORT_NUM)
        listener.Start()
        Do
            Dim socket As Socket = listener.AcceptSocket
            Dim IPstr As String = CType(socket.RemoteEndPoint, System.Net.IPEndPoint).Address.ToString
            Dim tcp As New TcpClient(CType(socket.RemoteEndPoint, System.Net.IPEndPoint))
            Dim client As New UserConnection(tcp)
            AddHandler client.LineReceived, AddressOf OnLineReceived
            UpdateStatus("New connection found at IP" & IPstr & ": waiting for log-in")
        Loop
    End Sub

But this code doesn't work. Basically I need to code to this EE question:
https://www.experts-exchange.com/questions/21016007/Getting-IP-from-TCPClient.html

Thanks!