Your decision logic using the SelectCase function is easier to debug or
troubleshoot!

If you insist on less lines  of code; see if this gets you what you are looking
for:


vValue = Me.TextBox1.Value
vLogicSum = 3 + (((vValue < 2)*1) + ((vValue<=4)*1))
Me.TextBox1.BackColor = Choose ( vLogicSum, &H80FF80, &H80FFFF, &HFF )

You can take it 1 step further by replacing the vLogicSum variable in line3 with
its expression from line2; then removing line 2.

As you can see, the original code is simpler to debug than the solution
provided!