Visual Basic para Aplicaciones - Limitar el numero de caracteres en un textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim CadenaTemporal As String ' VARIABLE 

If KeyAscii = 13 Then

KeyAscii = 0

'SendKeys "{tab}' ES OPCIONAL

ElseIf KeyAscii <> 8 Then 

If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then 

Beep 

KeyAscii = 0 

End If 

End If 

CadenaTemporal = Chr(KeyAscii) 'VARIABLE QUE TOMA EL CONTENIDO DEL KEY ASCII OSEA EL TEXT 

KeyAscii = Asc(UCase(CadenaTemporal)) 'ACA SE TRANSFORMA EN MAYUSCULAS 

Text1.MaxLength = 3 'EJEMPLO DE CANT DE CARACTERES 

End Sub

Private Sub txtCod_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = Asc(LCase(Chr(KeyAscii)))

If Len(txtCod) = 10 Then KeyAscii = 0: MsgBox "MAX permitido en Cod Producto, 10 dígitos": Exit Sub

End Sub

Function MINCaracter(wtext As MSForms.Control, Texto, cantidad)

'Por.Dante Amor 'Valida contenido de un textbox

    If Len(wtext) <> cantidad Then

        MsgBox "El " & Texto & " no contiene la cantidad de dígitos necesarios", 64, ""

        wtext.SetFocus

        MINCaracter = False

    Else

        MINCaracter = True

    End If

End Function

'Viene de la Function valida(wtext As MSForms.Control, num)

'Por.Dante Amor

    If MINCaracter(txtCod, "Cod/Producto", 10) = False Then Exit Sub ''AQUI 10 DIGITOS MINIMO

Private Sub txtCod_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = Asc(LCase(Chr(KeyAscii)))

If Len(txtCod) = 10 Then KeyAscii = 0: MsgBox "MAX permitido en Cod Producto, 10 dígitos": Exit Sub

End Sub