Dim Language As String = Request.UserLanguages(0)
If Not ((Language Is Nothing) OrElse (Language.IndexOf("-") < 0)) Then
Dim ci As System.Globalization.CultureInfo = New System.Globalization.CultureInfo(Language)
Dim CurrencySymbol As String = ci.NumberFormat.CurrencySymbol
Label1.Text = CurrencySymbol
End If