I have the following code and would like to limit the response in my txtbox so there is only a whole number could anyone please show me the code i need to use.
Private Sub txtMorActS_Change()
If IsNumeric(txtMorEst(0).Text) And IsNumeric(txtMorActS.Text) Then
If CDbl(txtMorActS.Text) < 0.00001 Then
txtPercent.Text = "0"
txtPercent.Text = Format(CDbl(txtMorEst(0).Text) / CDbl(txtMorActS.Text), "Percent")
txtMorMixS.Text = txtMorEst(0).Text * 16 * 6 / 1925