Sub UDP_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
Msgbox("Message received: " & msg, "")
Dim parts() As String = Regex.Split("~", msg)
Dim IPAddress As String = Packet.Host
Dim IPPort As String = packet.Port