Função Bloqueia Campos (argumento para Select Case)

Boa tarde ao Fórum!

Eu utilizo uma função chamada bloqueiaCampos num módulo global. Gostaria de torná-la mais flexível e definir quando ela é chamada que marcas(tag) serão acionadas para bloquear campos.
Pensei num argumento string (strMarca), mas só funciona se eu por apenas um número.
Exemplo:
Call bloqueiaCampos(Me, "1")
Caso eu ponha mais de um número não bloqueia os campos.
Call bloqueiaCampos(Me, "1,2")
Acho que o problema é porque os argumentos em Case são numéricos...

Código:

Function bloqueiaCampos(frm As Form, strMarca As String)
    'Função para bloquear campos do formulário
    Dim ctl As Control
    'Campos com a marca 1 recebem a função.
   
    For Each ctl In frm.Controls
        Select Case ctl.Tag
            Case strMarca
                If frm.Tipo = False Then
                    ctl.Enabled = False
                Else
                    ctl.Enabled = True
                End If
        End Select
    Next ctl
End Function

Boa noite,

Se eu entendi bem, pode ser isso:

Código:

For Each ctl In frm.Controls
   
    If InStr(strMarca, ctl.Tag) > 0 Then
        If frm.Tipo = False Then
            ctl.Enabled = False
        Else
            ctl.Enabled = True
        End If
    End If
   
Next ctl