Dim a As Double
Dim b As Double
 
    a = CDec("1,12121212121212121212121212121")
    b = CDec("1,12121212121212")
 
    Debug.Print a   '=> 1,12121212121212    '???????????????????
    Debug.Print b   '=> 1,12121212121212
 
    Debug.Print a = b               '=> Falsch
    Debug.Print CStr(a) = CStr(b)   '=> Wahr