If UDPSocket.IsInitialized=False Then
UDPSocket.Initialize("UDP",7000,128) 'Port and buffer size can be changed
End If
Dim Packet As UDPPacket
Dim bdata() As Byte
bdata = data.GetBytes("ASCII")
Packet.Initialize(bdata, ip,xxxx)
UDPSocket.Send(Packet)
Sleep(5000)
UDPSocket.Close