<%@ Import NameSpace="System.Globalization" %>
<%@ Import NameSpace="System.Threading" %>
<script language="vb" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Cul As String = Thread.CurrentThread.CurrentCulture.Name
  Dim C As New CultureInfo(Cul)
  Response.Write("<h3><Center>My CsvDelimiter is = " & C.TextInfo.ListSeparator & "</Center></h3>")
End Sub
</script>