Imports System.Runtime.InteropServices Module GetSystemDefaultLangID <DllImport("kernel32", EntryPoint:="GetSystemDefaultLangID")> Private Function GetSystemDefaultLangID() As UShort End Function Sub GetSystemDefaultLangID_Main() Dim langId As UShort = GetSystemDefaultLangID() Console.WriteLine($"The system default language ID is: {langId}") End Sub End Module