Gracias amigo Perro, me sirvió pero
Tengo que decirte lo siguiente
en esto
Código:
Private Sub ComboBox2_Change()
Dim largo
'CONTROLAMOS QUE PARA DNI, NIF Y CIF LA LOGITUD DE CARACTERES SEA DE 9 POSICIONES
If ComboBox2 = "NIF" Then
largo = 9
ElseIf ComboBox2 = "CIF" Then
largo = 2
End If
''''''''''' Condicional para asignar el MaxLength '''''''''''
'MaxLength asignado
TextBox5.MaxLength = largo
'Se corta el texto si el MaxLength es menor al anterior
TextBox5.Value = Left(TextBox5.Value, largo)
además de NIF y CIF tengo 4 mas : PASAPORTE, DE ORIGEN, CIUDADANO, EXTRANGERO y TRANSEUNTE.
Te pregunto si sabes como podría hacer agregando todos esto y no alargar tanto en código haciendo esto para cada uno, es decir, si no es ninguno de estos que no se pueda escribir en TextBox5 (Locked) porque no me acepta linea If ComboBox2 = "NIF"
Or "CIF" Or "PASAPORTE" Or "DE ORIGEN" Then
Porque para todos estos la longitud es de 9 y si no es ninguno de estos entonces Lockd el TextBox5 (esta linea la coloco,