I have the following section of code in a userform. I want to validate the data prior to it being written into the spreadsheet. For example, when testing I accidently typed 248..85. The Ccur(x) line then had a Type 13 mismatch error as currency does not have a double decimal point. 

                    col = 1
                    .Cells(Val(rownumber), col).Value = Format(Me.LINE_BOX.Value, "0")
                    col = 2
                    .Cells(Val(rownumber), col).Value = Format(Me.REV_CODE_BOX.Value, "000")
                    col = 3
                    .Cells(Val(rownumber), col).Value = vbNullString
                    col = 4
                    .Cells(Val(rownumber), col).Value = Format(Me.HCPC_BOX.Value, "00000")
                    col = 5
                    .Cells(Val(rownumber), col).Value = Me.MODIFIER_BOX.Value
                    col = 6
                    .Cells(Val(rownumber), col).Value = Format(Me.SERV_DATE_BOX.Value, "mm/dd/yy")
                    col = 7
                    .Cells(Val(rownumber), col).Value = Format(Me.UNITS_BOX.Value, "000")
                    col = 8
                    .Cells(Val(rownumber), col).Value = CCur(Me.CHARGES_BOX.Value)
                    col = 9
                    .Cells(Val(rownumber), col).Value = vbNullString
                    col = 10
                    .Cells(Val(rownumber), col).Value = vbNullString