laufende Aktualisierung in Textbox

Private Sub TB6_Change()
On Error GoTo Rechenfehler
TB18 = ((CDbl(TB4) + CDbl(TB6) + CDbl(TB8)) / 15 * 2) + 2
'oder TB18 = (Application.Sum((CDbl(TB4) + CDbl(TB6) + CDbl(TB8))) / 15 * 2) + 2
Rechenfehler: Exit Sub
End Sub

Wie muß der Code lauten, daß in Echtzeit das Ergebnis immer in TB18 erscheint? Und das aber auch wenn eins der 3 Textboxen leer ist?
Danke im voraus
Lorenz