How can i blink data in textbox on userform based on condition

hello
i got this code from the internet about blinking in textbox by command button but i would do this without command button it's directly when i open the useform for more:
i have sheet1 contains data begins from a2: d and userform contains 4 textbox when i search data in textbox1 it gives me the rest data in textbox2,3,4 the textbox4 it should blink back color by red directly based on condition (textbox4=date+10 days) the column d is date

Dim i As Long
    If Me.TextBox1 = "" Then
        Me.Label1.Caption = "Textbox Cannot be blank...."
        Me.Label1.ForeColor = vbRed
            For i = 1 To 10
                TextBox1.BackColor = vbRed
                Application.Wait (Now + TimeValue("0:00:1"))
                TextBox1.BackColor = vbGreen
                Application.Wait (Now + TimeValue("0:00:1"))
                TextBox1.BackColor = vbWhite
            
            Next i
                
    End If