Dim s As String = Nothing System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-us") Try MsgBox(s.Length) Catch ex As NullReferenceException MsgBox(ex.Message) End Try System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("ja-jp") Try MsgBox(s.Length) Catch ex As NullReferenceException MsgBox(ex.Message) End Try