Private Sub plus_Click()
  summe.Text = CStr(Val(summe.Text) + Val(preis.Text))
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.