Public Class Form1
 
    Private Const Port As Integer = 12345
    Private Packet As Test
 
    Private Structure Test
 
        Dim Var1() As Byte
        Dim Var2() As Byte
        Dim Var3() As Byte
        Dim Var4 As Byte
        Dim Var5 As Single
        Dim Var6 As Long
 
    End Structure
 
    Private Sub StartListener()
 
        ReDim Packet.Var1(3)
        ReDim Packet.Var2(3)
        ReDim Packet.Var3(1)
 
        Dim Done As Boolean = False
        Dim Listener As New UdpClient(Port)
        Dim EndPoint As New IPEndPoint(IPAddress.Any, Port)
 
        Dim Pt As Integer
 
        Try
 
            While Not Done
 
                Dim Data As Byte() = Listener.Receive(EndPoint)
 
                Pt = 0
 
                Array.Copy(Data, Packet.Var1, Packet.Var1.Length)
                Pt += Packet.Var1.Length
                Array.Copy(Data, Packet.Var2, Packet.Var2.Length)
                Pt += Packet.Var2.Length
                Array.Copy(Data, Packet.Var3, Packet.Var3.Length)
                Pt += Packet.Var3.Length
 
                Packet.Var4 = Data(Pt)
                Pt += 1
 
 
                Packet.Var5 = BitConverter.ToSingle(Data, Pt)
                Pt += 4
                Packet.Var6 = BitConverter.ToInt64(Data, Pt)
                Pt += 8
 
                MsgBox(Encoding.ASCII.GetString(Packet.Var1, 0, _
                  Packet.Var1.Length)
 
            End While
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Listener.Close()
        End Try
 
    End Sub
End Class