From: on
Private Sub TextBox1_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
If TextBox1.Value < 0 Then
TextBox1 = 0
End If
End If
End Sub

Dave Hawley
"Gabe" <Gabe(a)> wrote in message
>I went in and formatted a cell to: 0;"0";0 so that all negative numbers
> be converted to zero. I have a textbox on a userform that I need to do the
> same thing. What code would I use? I tried this but it doesn't work:
> txtRemain.Value = Format(txtRemain.Value, "#,#00;""0""")
> Any help would be greatly appriciated.
> Thanks,
> ~Gabe