[求助]想写一个为控件赋值的通用过程

假设所有的录入窗体都有创建者、创建日期、创建时间三个控件，如何写一个通用的过程，参数为窗体名，给三个空间赋值

我先是这样写

Sub Creator(ObjName As Object)
    ObjName.创建者 = CurrentUser()
    ObjName.创建日期 = Date
    ObjName.创建时间 = Time()
End Sub

后来改成

Sub Creator(ObjName As Object)
x As Control
For Each x In ObjName
    If x.NAME = "创建者" Then
        x.VALUE = CurrentUser()
    'ObjName.创建者 = CurrentUser()
    'ObjName.创建日期 = Date
    'ObjName.创建时间 = Time()
    ElseIf x.NAME = 创建日期 Then
        x.VALUE = Date
    ElseIf x.NAME = 创建时间 Then
        x.VALUE = Time()
    End If
Next x
End Sub

都运行不过去

请指教！