文本框文本在文本输入时消失

基本上我有一个创建的用户窗体，我想知道是否可以添加用户窗体加载时存在的灰色文本，但一旦用户开始在文本框中输入文本，该文本就会消失：

[图片已过期]

一旦用户开始输入，字体颜色应更改为黑色。

任何帮助，将不胜感激。

像这样的东西吗？

Private Sub UserForm_Initialize()
    TextBox1.ForeColor = &HC0C0C0 '<~~ Grey Color
    TextBox1.Text = "Please Enter Name Here"
    CommandButton1.SetFocus '<~~ This is required so that the focus moves from TB
End Sub

Private Sub TextBox1_Enter()
    With TextBox1
        If .Text = "Please Enter Name Here" Then
            .ForeColor = &H80000008 '<~~ Black Color
            .Text = ""
        End If
    End With
End Sub

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .Text = "Please Enter Name Here"
        End If
    End With
End Sub

屏幕截图（运行中）