¿como le hago?

hola, vm_tapia !

podrias usar unas variables iniciales y 'aligerar' un poco las lineas e instrucciones del codigo que estas usando
[y de pasadita, creo que sera un poco mas legible/entendible/modificable/...] :))

prueba con algo +/- como lo siguiente [y si cualquier duda... comentas ?]
saludos,
hector.

Private Sub Concepto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Limite As Integer, Restan As Integer, ColorTexto As Long, Faltan As String
Limite = Concepto.MaxLength
Restan = Limite - Len(Concepto)
Select Case Restan
Case 0: MsgBox _
"a) No puede exceder la capacidad de caracteres a capturar." & vbCr & _
"b) Modifique el "" Formato "" del Concepto que desea introducir." & vbCr & _
"c) Puede usar abreviaturas y en el caso de letras mayusculas, use las menos posibles." & vbCr & vbCr & _
"Gracias.", vbInformation, "TICSA - Aviso Importante"
ColorTexto = 0
Case Is < 30: ColorTexto = &HFF&
Case Is < 100: ColorTexto = &HFFFF&
Case Is < Limite: ColorTexto = &H8000&
End Select
If ColorTexto = 0 Then Exit Sub
Caracteres.Caption = "Le restan " & Restan & " Caracteres."
Caracteres.ForeColor = ColorTexto
End Sub

___ el codigo expuesto __

> este es el codigo:
> => > Private Sub Concepto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> If AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) = 0 Then
> MsgBox "a) No puede exceder la capacidad de caracteres a capturar. " & Chr(13) & Chr(13) & _
> " b) Modifique el "" Formato "" del Concepto que desea introducir. " & Chr(13) & Chr(13) & _
> " c) Puede usar abreviaturas y en el caso de las letras mayusculas, uselas lo menos posible. " & Chr(13) & Chr(13) & _
> " Gracias.", vbInformation + vbOKOnly, "TICSA - Aviso Importante"
> ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 229 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 100 Then
> AltaFacturas.Caracteres.ForeColor = &H8000&
> AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
> ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 99 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 30 Then
> AltaFacturas.Caracteres.ForeColor = &HFFFF&
> AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
> ElseIf AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 <= 29 And AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 >= 0 Then
> AltaFacturas.Caracteres.ForeColor = &HFF&
> AltaFacturas.Caracteres.Caption = "Le restan " & AltaFacturas.Concepto.MaxLength - Len(AltaFacturas.Concepto.Text) - 1 & " Caracteres."
> End If
> End Sub
> ==