Private Sub Command1_Click()
  Dim nKtoStand As Currency
  Dim nBetrag As Currency
 
  nKtoStand = CCur(Text1.Text)
  nBetrag = CCur(Text2.Text)
 
  Label1.Caption = FormatCurrency(nKtoStand - nBetrag)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de