Dim client1 As New System.Net.Sockets.UdpClient(5168, _
  Net.Sockets.AddressFamily.InterNetwork)

If client1.Available >= 166 Then
 
Dim IPRemote As System.Net.IPAddress = System.Net.IPAddress.Parse( _
  "192.168.136.141")
Dim EndPointRemote As New System.Net.IPEndPoint(IPRemote, 0)
Dim byteX() As Byte = client1.Receive(EndPointRemote)
 
For Each item As Byte In byteX
   TextBox1.Text &= item & ";"
Next
 
else
End If