Analizando solo el primer objeto del arreglo JSON

Tengo la siguiente estructura de texto en JSON:

{
   "Results":{
      "Burger King":{
         "Location":"Nueva York",
         "Address":"Avenida Dalmatas, 20"
 },
      "Mcdonalds":{
         "Location":"Los Ángeles",
         "Address":"Calle Oscar, 50"
      }
   }
}

Logré obtener los resultados de la ciudad y la dirección, pero para eso necesito mencionar el nombre del restaurante en el código para obtener la cadena de token.

Dim JSON As String = "<json aquí="">"

Dim token As JToken
token = JObject.Parse(JSON.ToString())
Dim data = token.SelectToken("Results").SelectToken("Burger King").SelectToken("Location")

Mi pregunta es, ¿cómo puedo listar solo los restaurantes (Burger King, Mcdonalds, etc), por ejemplo, en un Listbox? De esta manera puedo agregar una función que verifique la dirección y ciudad con la elección del usuario, lo cual ya sé y entiendo cómo hacerlo, pero obtener el token solo con los nombres de los restaurantes está siendo difícil para mí. Si tengo un nuevo nombre de restaurante, por ejemplo, no querría incluirlo manualmente en el código. He intentado de muchas formas diferentes, pero la última que he utilizado es la siguiente:

Dim data = token.SelectToken("Results").SelectToken(0) 'Pensé que imprimiría 'Burger King'
'o este otro
Dim data = token.SelectToken("Results")(0).ToString()

También he intentado distintos bucles “Para cada” pero tampoco tuve éxito. He investigado innumerables métodos sobre cómo hacer esto y nada funciona. Creo que es algo simple que estoy ignorando o olvidando por completo… ¡Por favor, ayúdame! Gracias.