rotina para habilitar

Olá!Eu inclui um módulo e fiz um rotina para habilitar, desabiliar e mudar a cor de um controle no formulário mas na hora de mudar a cor de um campo maskedbox ele dá mensagem de overflow.Public Sub abili(fver As Boolean, ccaixa As String, formulario As Form) Dim controle As Control For Each controle In formulario If TypeOf controle Is MaskEdBox Then controle.BackColor = ccaixa controle.Enabled = fver endif nextend sub