Rekenen in textbox

[piet700]

beste helpers

wat doe ik fout
textbox geeft geen uitkomst

groet piet




[CODE
Private Sub TextBox16_Change()
On Error Resume Next
TextBox1.Text = Format(TextBox1.Text) - Val(TextBox15.Text)
If TextBox15.Text <= 0 Then
TextBox15.Text = "0"
End If

End Sub][/CODE]

 

[snb]

Verwijder On error resume next en zet je bril op.

 

[piet700]

snb

dat geeft ook geen uitkomst
andere bril op gezet ben er uit

groet piet