How do i get a code for multiple client server using udp in vb.net?

See more:

VB

UDP

LAN

I have a code for single client - server but i am confused how to convert it to multiple client-server in a LAN network.I have a project to connect pcs in a LAN network like colleges or cyber cafes and exchange data between the clients and the server.I want the code for UDP connection and in vb.net, i have pasted my code please help me.

What I have tried:

Udp Client:

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Module Module1
    Dim sock As UdpClient
    Dim ip As String = "127.0.0.1"
    Dim port As Int32 = 89

    Sub Main()
        Try
            sock = New UdpClient()
            sock.Connect(ip, port)
            Do
                Dim bytes() As Byte = Encoding.Default.GetBytes(Console.ReadLine)
                sock.Send(bytes, bytes.Length)
            Loop

        Catch ex As Exception
            Console.Write(ex.Message)
        End Try
    End Sub

End Module

Udp Server:

Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Module Module1
    Dim sock As UdpClient
    Dim port As Int32 = 89
    Dim lpendp As IPEndPoint


    Sub Main()
        Try
            sock = New UdpClient(port)
            lpendp = New IPEndPoint(0, 89)
            Do
                Dim bytes() As Byte = sock.Receive(lpendp)
                Console.WriteLine(Encoding.Default.GetString(bytes))
            Loop
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

End Module