Excel Vba funcion dateadd no saque mensaje

Necesito que al utilizar la función dateadd no me envíe un mensaje sino que el textbox cambie de color.

Tengo este código

Sub DateAdd_Year_Test()
    Dim dtToday As Date
    Dim dtLater As Date
    dtToday = Date
    dtLater = DateAdd("yyyy", 1, dtToday)
    MsgBox "Fuera de rango "
End Sub

pero necesito que el textbox cambie de color