Can someone tell me why my code will not let me type 1.0, 2.0, 3.0, etc, but it will allow me to type 1.1, 2.1, 3.1, etc? If possible offer a solution to my delima. Thanks in advance.
Private Sub txtTOTAL_Change() Dim v As String, tVal As Single If Len(Me.txtTOTAL) Then v = Replace(Me.txtTOTAL, ".", "") tVal = Val(v) / 10 Me.txtTOTAL = tVal End If End Sub