Private Shared Sub WebSocket_OnMessage(ByVal sender As Object, ByVal e As _
  MessageEventArgs)
Msgbox(e.data)
End Sub

 Dim JSON_Packet As Packet = JsonConvert.DeserializeObject(Of Packet)(e.Data)

Newtonsoft.Json.JsonSerializationException: "Error converting value "{
  "Hostname": "[EU/GER] RustyBeach Test Server",
  "MaxPlayers": 2,
  "Players": 0,
  "Queued": 0,
  "Joining": 0,
  "EntityCount": 102836,
  "GameTime": "07/12/2024 16:57:31",
  "Uptime": 7502,
  "Map": "Procedural Map",
  "Framerate": 30.0,
  "Memory": 1699,
  "Collections": 147,
  "NetworkIn": 0,
  "NetworkOut": 0,
  "Restarting": false,
  "SaveCreatedTime": "01/06/2022 23:17:08"
}" to type 'WindowsApplication23.Sharpcon.WebSockets.Message'. Path 'Message'," & _
  "line 2, position 495."

{
  "Message": "{\r\n  \"Hostname\": \"[EU/GER] RustyBeach Test Server\",\r\n " & _
    "\"MaxPlayers\": 2,\r\n  \"Players\": 0,\r\n  \"Queued\": 0,\r\n " & _
    "\"Joining\": 0,\r\n  \"EntityCount\": 102817,\r\n  \"GameTime\":" & _
    "\"07/12/2024 17:18:03\",\r\n  \"Uptime\": 7609,\r\n  \"Map\": \"Procedural _
    Map\",\r\n  \"Framerate\": 30.0,\r\n  \"Memory\": 1719,\r\n " & _
    "\"Collections\": 147,\r\n  \"NetworkIn\": 0,\r\n  \"NetworkOut\": 0,\r\n " & _
    "\"Restarting\": false,\r\n  \"SaveCreatedTime\": \"01/06/2022 _
    23:17:08\"\r\n}",
  "Identifier": 0,
  "Type": "Generic",
  "Stacktrace": ""
}