Dim d1 As Double = Double.Parse("1.234,56", New _
          Globalization.CultureInfo("DE-de"))
        Dim d2 As Double = Double.Parse("1'234.56", New _
        Globalization.CultureInfo("DE-ch"))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist