Ajuda com implementação de códigos

Pfezados do Forum, bom dia.

Estou um botão de comando "Bt_Consultar", estou usando a função abaixo para bloquear caixa txt, botões, combinações e grupos de opções em um formulário:

Function BloqueioFrm(argFrm As Form)
     
   Dim ctl As Control
   
   For Each ctl In argFrm.Controls
       With ctl
           Select Case .ControlType
                               
               'Bloquear todas as caixas de texto
               Case acTextBox
                       .Locked = True
             
               'Bloquear todas as caixas de combinação
               Case acComboBox
                       .Locked = True
                     
               'Bloquear todas as caixas de seleção
               Case acCheckBox
                       .Locked = True
                   
               'Deixar inativo todos os botões de comando
               Case acCommandButton = True
             
               'Bloquear todos os botões de opção
               Case acOptionButton
                       .Locked = True
                               
               'Bloquear todos os grupos de opção
               Case acOptionGroup
                       .Locked = True
                   
           End Select
       End With
   Next ctl
             
End Function

(Está função eu peguei na Web e não me recordo mais do criador)

Ocorre que função bloqueia genericamente. Estou precisando de adaptá-la para bloquear objetos determinados (Bt_xxx, Txt_xxx, etc).

Alguém saberia me informar como fazer este tipo de referencia na função citada ou alguma forma de realizar bloqueio deste tipo ao abrir o formulario? Desde já agradeço.

Utilize o nome do controle seguido de .locked=true

Exemplo

Código:

CaixadeTexto1.locked = true
BotãoDeOpção2.locked = false

Isso fora do foreach(), pois citando os controles pelo nome não é necessário verificar em cada um deles.

Bom dia, Thiagomcosta, agradeço-lhe pela a atenção.

Não funcionou. Retorna erro de método ou membro não encontrado.

Existe alguma maneira de referenciar os objetos na função que postei? Agradecido.