Option Explicit
Private Zwischensumme As Double

Zahl = CDbl(txtZahl.Text)
If Zahl <> 0 Then
  Zwischensumme = Zwischensumme + Zahl
  Ergebnis = Zwischensumme
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de