Socket Network VB.Net Tutorial

Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Public Class Tester
    Public Shared Sub Main
        Try
            Dim dataSend() As Byte
            Dim myUdpClient As UdpClient = New UdpClient("127.0.0.1", 12345)
            Dim myFilestream As FileStream
            myFilestream = New FileStream("test.txt", FileMode.Open, FileAccess.Read)
            ReDim dataSend(myFilestream.Length)
            myFilestream.Read(dataSend, 0, myFilestream.Length)
            myUdpClient.Send(dataSend, dataSend.Length)
            myFilestream.Close()
            myUdpClient.Close()
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
    End Sub
End Class