VBA 文本框的占位符

Question

因此，我有以下代码应该允许我在 VBA 用户表单中放置一个占位符，但我无法正确运行代码，它总是返回给我一个“运行时错误'13'： Me.Controls(Objeto).Value = vbNullString的类型不匹配”错误Me.Controls(Objeto).Value = vbNullString行。

有人可以给我一些光吗？

Sub TB_Enter(Objeto)
    If Len(Me.Controls(Objeto).Tag) = 0 Then
        Me.Controls(Objeto).Tag = Me.Controls(Objeto).Value
        Me.Controls(Objeto).Value = vbNullString
    End If
End Sub


Sub TB_Exit(Objeto)
    If Len(Me.Controls(Objeto).Value) = 0 Then
        Me.Controls(Objeto).Value = Me.Controls(Objeto).Tag
        Me.Controls(Objeto).Tag = vbNullString

End Sub

Private Sub TextBox1_Enter()
    TB_Enter ActiveControl.Name
    
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TB_Exit ActiveControl.Name
End Sub