TextBox con valor negativo en 0

[Nancy]

Private Sub CommandButton23_Click()
TextBox1 = TextBox1 - 1

End Sub

Quiero que en el TextBox1 al pasar a numero negativo  -1  el numero pase a 0 porque no quiero que se pase a -1 -2 -3 -4  ya que no requiero eso...

Ejem:

 

TextBox =  me dio un resultado 856,  Pero si el el resultado es -856  pase a 0   

espero su gran ayuda

[Antoni]

Private Sub TextBox1_Change()
On Error Resume Next
if CDbl(TextBox1) < 0 then TextBox1=0
End Sub