try:

ws.Cells(iRow, 10).Value = Val(Me.Tb1.Value) * 0.5 +
Val(Me.Tb2.Value) * 0.05

"Hazel" wrote:

Hi All

This has to be easy for all you experts out there -- a userform with 2 text
boxes
entering a number or a zero in Tb2 the following code runs OK on running
the macro. leave it blank and the debugger kicks in is there a way round this
problem.
probably a msg telling them to enter a zero??

ws.Cells(iRow, 10).Value = Val(Trim(Me.Tb1.Value * 0.5)) +
Val(Trim(Me.Tb2.Value * 0.05))

--
Many thanks

hazel