Private Sub Command1_Click()
  Dim eurorueck As Currency
  Dim eurobetrag As Currency
  Dim eurogabe As Currency
 
  eurobetrag = DM2Euro(Text1.Text) + Val(Replace(Text2.Text, ",", "."))
  eurogabe = DM2Euro(Text3.Text) + Val(Replace(Text4.Text, ",", "."))
 
  eurorueck = eurogabe - eurobetrag
 
  lblEuroRückgabe.Caption = Format$(eurorueck, "0.00")
End Sub

<font color=green>' Umrechnung DM nach Euro
' autom. Runden auf 2 Nachkommastellen</font>
Public Function DM2Euro(ByVal vDM As Variant) As Currency
  Dim curDM As Currency
 
  If VarType(vDM) = vbString Then
    curDM = Val(Replace(vDM, ",", "."))
  Else
    curDM = CCur(vDM)
  End If
 
  DM2Euro = Int(curDM / 1.95583 * 100 + 0.5) / 100
End Function