Obtener el separador decimal

Dim p As String = CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator