Change TextBox BackColor

Hi all,



I'm trying to change the back color on a textbox.

example for 1 textbox entry among others that I will be conditionally changing the back color.

Private Sub UserForm_Initialize()

Dim  lngYellow As Long, lngWhite As Long
 lngYellow = RGB(252, 248, 61)
lngWhite = RGB(255, 255, 255)

With Me.TextBox1
.BackColor = lngWhite
 End With

If .TextBox1.Value = "" Then Me.TextBox1.BackColor = lngYellow
End SUB

Any help to fix this is appreciated.
FYI:
I don't know how, but during the process of trying this, I've changed the textbox1 back color to yellow.
Everything that I've tried to set it back to white has failed.
BDB

Hello BDB,

You only need to set the back color to yellow when the UserForm is initialized because it will come white by default. To change the color based on the contents of the TextBox, you need to add code to Change event. The code is below.

Private Sub TextBox1_Change()

    Dim lngYellow As Long, lngWhite As Long
  
    lngYellow = RGB(252, 248, 61)
    lngWhite = RGB(255, 255, 255)

    TextBox1.BackColor = lngWhite

    If TextBox1.Value = "" Then TextBox1.BackColor = lngYellow

End Sub

Private Sub UserForm_Initialize()

    TextBox1.BackColor = RGB(252, 248, 61)
  
End Sub

Hello BDB,

If you still have problems tomorrow, you should post the workbook. There may be some other factors affecting the TextBox.