'Culture definieren
  Dim ci As New Globalization.CultureInfo("DE")
 
  ci.NumberFormat.PositiveSign = "P"
  ci.NumberFormat.NegativeSign = "N"
 
  'Für die Anwendung festlegen
  Application.CurrentCulture = ci
 
  Dim dbl As Double
  Double.TryParse("N100", dbl) '---> -100,0