Dim c As System.Globalization.CultureInfo = _
          Threading.Thread.CurrentThread.CurrentCulture
 
        Threading.Thread.CurrentThread.CurrentCulture = New _
          Globalization.CultureInfo("de-DE")
 
        Dim lngCell As Decimal
        lngCell = CDec("12,34556") + CDec("12,78")
        Debug.WriteLine(lngCell.ToString())
 
 
        Threading.Thread.CurrentThread.CurrentCulture = c

        Debug.WriteLine(lngCell.ToString("F2"))

________
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