diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Program.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Program.vb
new file mode 100644
index 00000000000..5af114e0263
--- /dev/null
+++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Program.vb
@@ -0,0 +1,8 @@
+Public Module Program
+
+ Public Sub Main()
+ CountCulturesExample.RunIt()
+ Module1.RunIt()
+ End Sub
+
+End Module
diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Project.vbproj b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Project.vbproj
new file mode 100644
index 00000000000..325ccd545c2
--- /dev/null
+++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/Project.vbproj
@@ -0,0 +1,8 @@
+
+
+
+ Exe
+ net9.0
+
+
+
\ No newline at end of file
diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures.vb
index 3b4c6c22f38..67076989119 100644
--- a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures.vb
+++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures.vb
@@ -1,46 +1,42 @@
-' The following code example displays several properties of the neutral cultures.
-
-'
-Imports System.Globalization
+Imports System.Globalization
Module Module1
- Public Sub Main()
-
- ' Displays several properties of the neutral cultures.
- Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME")
- Dim ci As CultureInfo
- For Each ci In CultureInfo.GetCultures(CultureTypes.NeutralCultures)
- Console.Write("{0,-7}", ci.Name)
- Console.Write(" {0,-3}", ci.TwoLetterISOLanguageName)
- Console.Write(" {0,-3}", ci.ThreeLetterISOLanguageName)
- Console.Write(" {0,-3}", ci.ThreeLetterWindowsLanguageName)
- Console.Write(" {0,-40}", ci.DisplayName)
- Console.WriteLine(" {0,-40}", ci.EnglishName)
- Next ci
-
- End Sub
-
-
-
-'This code produces the following output. This output has been cropped for brevity.
-'
-'CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME
-'ar ar ara ARA Arabic Arabic
-'bg bg bul BGR Bulgarian Bulgarian
-'ca ca cat CAT Catalan Catalan
-'cs cs ces CSY Czech Czech
-'da da dan DAN Danish Danish
-'de de deu DEU German German
-'el el ell ELL Greek Greek
-'en en eng ENU English English
-'es es spa ESP Spanish Spanish
-'fi fi fin FIN Finnish Finnish
-'zh zh zho CHS Chinese Chinese
-'zh-Hans zh zho CHS Chinese (Simplified) Chinese (Simplified)
-'zh-Hant zh zho ZHH Chinese (Traditional) Chinese (Traditional)
-'
-'Note: zh-Hant returns ZHH when using ICU (default). When NLS mode is enabled, it returns CHT.
+ Public Sub RunIt()
+ '
+
+ ' Displays several properties of the neutral cultures.
+ Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME")
+ Dim ci As CultureInfo
+ For Each ci In CultureInfo.GetCultures(CultureTypes.NeutralCultures)
+ Console.Write("{0,-7}", ci.Name)
+ Console.Write(" {0,-3}", ci.TwoLetterISOLanguageName)
+ Console.Write(" {0,-3}", ci.ThreeLetterISOLanguageName)
+ Console.Write(" {0,-3}", ci.ThreeLetterWindowsLanguageName)
+ Console.Write(" {0,-40}", ci.DisplayName)
+ Console.WriteLine(" {0,-40}", ci.EnglishName)
+ Next ci
+
+ 'This code produces the following output. This output has been cropped for brevity.
+ '
+ 'CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME
+ 'ar ar ara ARA Arabic Arabic
+ 'bg bg bul BGR Bulgarian Bulgarian
+ 'ca ca cat CAT Catalan Catalan
+ 'cs cs ces CSY Czech Czech
+ 'da da dan DAN Danish Danish
+ 'de de deu DEU German German
+ 'el el ell ELL Greek Greek
+ 'en en eng ENU English English
+ 'es es spa ESP Spanish Spanish
+ 'fi fi fin FIN Finnish Finnish
+ 'zh zh zho CHS Chinese Chinese
+ 'zh-Hans zh zho CHS Chinese (Simplified) Chinese (Simplified)
+ 'zh-Hant zh zho ZHH Chinese (Traditional) Chinese (Traditional)
+ '
+ 'Note: zh-Hant returns ZHH when using ICU (default). When NLS mode is enabled, it returns CHT.
+
+ '
+ End Sub
End Module
-'
diff --git a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures3.vb b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures3.vb
index 71a81c6ef50..800e07e6e7f 100644
--- a/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures3.vb
+++ b/snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures3.vb
@@ -1,21 +1,22 @@
-'
-Imports System.Globalization
+Imports System.Globalization
-Module Example
- Sub Main()
- Dim cultures() As CultureInfo = CultureInfo.GetCultures(CultureTypes.UserCustomCulture Or
+Module CountCulturesExample
+ Sub RunIt()
+ '
+ Dim cultures() As CultureInfo = CultureInfo.GetCultures(CultureTypes.UserCustomCulture Or
CultureTypes.SpecificCultures)
- Dim ctr As Integer = 0
- For Each culture In cultures
- If (culture.CultureTypes And CultureTypes.UserCustomCulture) = CultureTypes.UserCustomCulture Then
- ctr += 1
- End If
- Next
- Console.WriteLine("Number of Specific Custom Cultures: {0}", ctr)
- End Sub
+ Dim ctr As Integer = 0
+ For Each culture In cultures
+ If (culture.CultureTypes And CultureTypes.UserCustomCulture) = CultureTypes.UserCustomCulture Then
+ ctr += 1
+ End If
+ Next
+ Console.WriteLine("Number of Specific Custom Cultures: {0}", ctr)
+
+ ' If run under Windows 8, the example displays output like the following:
+ ' Number of Specific Custom Cultures: 6
+ ' If run under Windows 10, the example displays output like the following:
+ ' Number of Specific Custom Cultures: 279
+ '
+ End Sub
End Module
-' If run under Windows 8, the example displays output like the following:
-' Number of Specific Custom Cultures: 6
-' If run under Windows 10, the example displays output like the following:
-' Number of Specific Custom Cultures: 279
-'
\ No newline at end of file