eu não entendi direito não pq não sei que erro está ocorrendo, mas ... tenta mudar isso aí ... colocando o Val na frente para pegar como valor e não como string, pode ser isso ...
'teste TESTE --- ----- TESTE ----- --- TESTE teste'
'é filtro para P,M,G,GG.
If (Val(Txttam.Text) >= 0 And Val(Txttam.Text) <= 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 (Val(Txttam.Text) Mod 2 = 1) Then
resp = MsgBox("Digite Valores Pares", 64, "É Necessário...")
'valores fora da faixa de 2 à 60
If Val(txtam.text) < 2 Or val(Txttam.text) > 60 Then
resp = MsgBox("Valores Pares Entre 2 e 60", 64, "É Necessário...")
Txttam = ""
Exit Sub
End If
'teste TESTE --- ----- TESTE ----- --- TESTE teste'
