Habilitar/Desabilitar controles de um formulário via função e a propriedade tag

Código disponibilizado a mim por um colega do fórum, adaptado para função.
Habilita/Desabilita os controles do formulário cuja propriedade Tag esteja como A

Public Function TControlFunc1(NomeForm As Access.Form)
On Error Resume Next
Dim TControle As control
For Each TControle In NomeForm.Controls
If TControle.Tag = "A" Then
    If TControle.Enabled = False Then
        TControle.Enabled = True
    Else
        TControle.Enabled = False
    End If
End If
Next TControle
End Function

Para invocar:

Call TControle(Me)