Numeric Values in a textbox

I have a problem witth a section of code that loads in a monitary value.

If Cells(Cr, 5).Value <> "" Then
Cells(Cr, 6).Value = Round(0.1489361 * Cells(Cr, 5).Value, 2)
Cells(Cr, 7).Value = Round(Cells(Cr, 5).Value - Cells(Cr, 6).Value, 2)

If alphanumeric values are entered into the textbox that put the code into cell Cr,5 the program crashes.

I know it's because of the Round() function but I need to use it otherwise the returned value is to 10 decimal places.

How can I get the textbox to accept numeric values only please?

Hi,

Instead of Round() function, take a look at Format()or Text() functions

HTH
Carim

Thanks changed code to:

If IsNumeric(Cells(Cr, 5).Value) = True Then
Cells(Cr, 6).Value = Round(0.1489361 * Cells(Cr, 5).Value, 2)
Cells(Cr, 7).Value = Round(Cells(Cr, 5).Value - Cells(Cr, 6).Value, 2)
Else: Rows(Cr) = ""
End If

Seems to work a treat.