Fix VB namespace and class naming to match C# example structure

Co-authored-by: gewarren <[email protected]>

Author: Copilot

docs/standard/serialization/system-text-json/snippets/how-to/vb/DeserializeExtra.vb

@@ -1,8 +1,23 @@
 Imports System.Text.Json
 
-Namespace SystemTextJsonSamples
+Namespace DeserializeExtra
 
-    Public NotInheritable Class DeserializeExtra
+    Public Class WeatherForecast
+        Public Property [Date] As DateTimeOffset
+        Public Property TemperatureCelsius As Integer
+        Public Property Summary As String
+        Public SummaryField As String
+        Public Property DatesAvailable As IList(Of DateTimeOffset)
+        Public Property TemperatureRanges As Dictionary(Of String, HighLowTemps)
+        Public Property SummaryWords As String()
+    End Class
+
+    Public Class HighLowTemps
+        Public Property High As Integer
+        Public Property Low As Integer
+    End Class
+
+    Public NotInheritable Class Program
 
         Public Shared Sub Run()
             Dim jsonString As String =
@@ -31,8 +46,8 @@ Namespace SystemTextJsonSamples
                   ]
                 }"
 
-            Dim weatherForecast As WeatherForecastWithPOCOs =
-                JsonSerializer.Deserialize(Of WeatherForecastWithPOCOs)(jsonString)
+            Dim weatherForecast As WeatherForecast =
+                JsonSerializer.Deserialize(Of WeatherForecast)(jsonString)
 
             Console.WriteLine($"Date: {weatherForecast?.Date}")
             Console.WriteLine($"TemperatureCelsius: {weatherForecast?.TemperatureCelsius}")