Mit Hilfe einer benutzerdefinierten Funktion errechnen Sie den Euro-Wert:

   Function Euro(DM)
      Euro = Format(DM / 1.95583, "#,##0.00")
   End Function