Problema con chat en Visual Basic 2005

[moradazo]

Hola amigos, me ando creando un chat y leyendo algunos tutoriales me encuentro con esto:

Código HTML:

  Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        If TB_nombre.Text = "" Then
            MsgBox("Escriba un nombre", MsgBoxStyle.Exclamation, "Textenger")
            Exit Sub
        Else
            readData = "Conected to Chat Server ..."
            msg()
            clientSocket.Connect("127.0.0.1", 8888)
            serverStream = clientSocket.GetStream()

            Dim outStream As Byte() = _
            System.Text.Encoding.ASCII.GetBytes(TB_nombre.Text + "$")
            serverStream.Write(outStream, 0, outStream.Length)
            serverStream.Flush()

            Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage)
            ctThread.Start()
            Button2.Enabled = False
            TB_nombre.Enabled = False
        End If
    End Sub

Tengo entendido que 127.0.0.1 es el local host, y como no conozco mucho de esto, le puse la IP de mi router, la que me detecta internet pero no me funciona cuando le doy el programa a alguien de otra IP. El error que da es el siguiente:

No se ha podido establecer conexión ya que el equipo de destino ha denegado activamente dicha conexión 127.0.0.1:8888

Ese 8888 viene de un módulo que tiene esta línea:
Dim serverSocket As New TcpListener(8888) (Por cierto el serverSocket aparece como sin uso, esa rayita verde que sale abajo)

Si alguien me puede ayudar para poder usarlo con usuarios en internet? Gracias.

PD: Le abri los puertos, deshabilité el firewall de windows y ni aún así.