Ver originalPrivate Sub txt_Change() If txt.Text <> Empty Then If Val(txt.Text) <= 99 Then txt.BackColor = vbGreen Else txt.BackColor = vbRed End If End IfEnd Sub