Private Sub txtFields_Change(Index As Integer) 
  Dim Feld1 As String
  Dim Feld2 As String
  Dim Feld3 As String 
  Dim Summe As Currency 
 
  Feld1 = txtFields(13).Text 
  Feld2 = txtFields(15).Text 
  Feld3 = txtFields(17).Text 
 
  Summe = CCur(Feld1) + CCur(Feld2) + CCur(Feld3) 
  txtFields(19).Text = Summe 
End Sub

Private Sub txtFields_Change(Index As Integer) 
  txtFields(19).Text = Format$(CCur(txtFields(13).Text) + _
    CCur(txtFields(15).Text) + CCur(txtFields(17).Text), "0.00")
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de