<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Add_Click()
  <font color=#000099>Dim</font> dblZahl1 <font color=#000099>As</font> <font _
  color=#000099>Double</font>
  <font color=#000099>Dim</font> dblZahl2 <font color=#000099>As</font> <font _
  color=#000099>Double</font>
 
  dblZahl1 = Val(Replace(Zahl1, ",", "."))
  dblZahl2 = Val(Replace(Zahl2, ",", "."))
 
  Erg.Caption = Format$(dblZahl1 + dblZahl2)
<font color=#000099>End</font> <font color=#000099>Sub</font></code>