tudo bem, familia vbweb!

abaixo esta o codigo inteiro de uma caixa de texto. Ela é para uma loja de roupa que entra com o numero (par) da roupa de 2 à 60, e também tem o P,M,G e GG.

esta tudo pronto exceto o que esta entre o TESTE --- TESTE, sem este pedaço de codigo funciona, apos adiciona-lo nao funciona. Gostaria da Colaboração de Todos para solucionar este problema.

muito grato.

 

codigo:

 

Private Sub Txttam_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'copia
'apos o ENTER,se a cx esta vaz(msg); senao restaura o tam=2
''pois se for 1 na prox inclusao:deixa apenas digitar 1 vez
 If Txttam = "" Then
  resp = MsgBox("Digite O Tamanho Do Modelo", 64, "É Necessário...")
 Else

'é filtro para P,M,G,GG.
If (Txttam >= "0" And Txttam <= "99") Then
'para ver se o numero é impar, pego o resto de uma divisao
''por 2. o resto pode ser 0 ou 1. e coloco no aux.
 If (Txttam Mod 2 = 1) Then
  resp = MsgBox("Digite Valores Pares", 64, "É Necessário...")
'valores fora da faixa de 2 à 60
 If txtam < 2 Or Txttam > 60 Then
  resp = MsgBox("Valores Pares Entre 2 e 60", 64, "É Necessário...")
 Txttam = ""
 Exit Sub
End If

  Txttam.MaxLength = 2
  Txtqtd.SetFocus
 End If
 Exit Sub
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
'p qdo tiver P ou M estará valendo maxlength=1, mas usando
''o backspace p/ apagar(cx vz)entao tem q voltar ao normal
''maxlength=2
If KeyAscii = 8 And (Txttam <> "P" Or Txttam <> "M") Then Txttam.MaxLength = 2
's/ isto qdo tinha 1 G aceita depois G e nº. ex: G8
If Txttam = "G" And (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
   resp = MsgBox("Digite P,M,G,GG Ou Tamanho Da Roupa", 64, "É Necessário...")
'p/ cancelar os digitos digitados.
   KeyAscii = 0
'sai da sub p/ ñ entra em outras situaçoes.
   Exit Sub
End If
'qdo se teclar P,M,G; senao sao os number e backspace
If (KeyAscii = 80 Or KeyAscii = 77 Or KeyAscii = 71) Then
'qdo teclar P e M nao pode ter receber caracteres maxlen=1
  If (KeyAscii = 80 Or KeyAscii = 77) Then Txttam.MaxLength = 1
 ElseIf (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then
  resp = MsgBox("Digite P,M,G,GG Ou Número Da Roupa", 64, "É Necessário...")
  KeyAscii = 0
End If
End Sub

If (Txttam >= 0 And Txttam <= 99) Then

 if (Txttam Mod 2 = 1) Then
  MsgBox("Digite Valores Pares", 64, "É Necessário...")
  exit sub
 end if

 If txtam < 2 Or Txttam > 60 Then
  MsgBox("Valores Pares Entre 2 e 60", 64, "É Necessário...")
  Exit Sub
 end if
End If

eu fiz umas alteraçoes se alguem tem o interesse avise