Changing multiple textboxes format on a userform

Good day,

I hope this e-mail finds you well.
I was wondering if someone can show me a shorter way of applying a simple conditional formatting code to multiple textboxes on my userform.

I have the following code, but want to apply it to a number of textboxes.

Lets say for example, the same code I want to apply to TextBox 1 to 10.

Private Sub Textbox31_Change()


   With TextBox31
       Select Case .Value
       
       Case Is = "No", "no"
          .BackColor = vbRed
       Case Is = "Yes", "yes"
          .BackColor = vbGreen
       Case Is = ""
          .BackColor = vbWhite

       End Select
   End With

End Sub

Thank you in advance!

I believe you can use this below... try it and see

Dim Numtboxes as Long
Numtboxes = HOWEVER MANY TEXTBOXES YOU NEED TO EDIT... 30
For i = 1 to Numtboxes
   With TextBox&i
       Select Case .Value
       
       Case Is = "No", "no"
          .BackColor = vbRed
       Case Is = "Yes", "yes"
          .BackColor = vbGreen
       Case Is = ""
          .BackColor = vbWhite

       End Select
   End With
Next i