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!

You're may want to go through the Form Controls:

For Each cntl In MyForm.Controls
If InStr(cntl.Name, "TextBox") Then
Select Case cntl.Value
Case Is < 2

End Select

End If
Next

This assumes that you want to do this with all TextBoxes in the Form,
and that they've got "TextBox" as part of their name.

There is also a TypeName(cntl) = "TextBox" construct, but I've not had
consistent results with it. It could be because I don't know how to
use it.