Amigos,

 

 

Imagine uma placa de carro, ela começa com letras e terminam com números BBB9999

Na minha TexBox existe duas situações, uma para cadastrar placa e outra para cadastrar números

 

Então, quando for cadastrar placa, começa com letras, então o tamanho do campo deve ser com apenas 7 dígitos, e não deve passar quando for cadastrar com números o tamanho deve ter 10 dígitos.  Vá fiz essa pergunta mas estava faltando essa comparação.

 

Obrigada

Gláucia, tente isso, no evento KeyPress:

 

KeyAscii = Asc(UCase(Chr(KeyAscii)))        'Força maiúsculas

If Left(Text1.Text, 1) Like "[A-Z]" Then    'Se existir algo e começar com letra,
    Text1.MaxLength = 7                     'Tamanho do campo=7
Else                                        'Senão,
    If Trim$(Text1.Text) = "" Then          'Se a Text estiver vazia,
        If Chr(KeyAscii) Like "[A-Z]" Then  'Verifica se o usuário digitou letra,
            Text1.MaxLength = 7             'Caso afirmativo, tamanho=7
        Else                                'Senão,
            Text1.MaxLength = 10            'Tamanho=10
        End If
    Else                                    'Se a Text não estiver vazia,
        Text1.MaxLength = 10                'então começou com número, logo, tamanho=10
    End If
End If