[Resolvido]Somar com critério

Bom dia a todos.
Existe uma classificação para lesão neurológica onde precisamos quantificar em cada local um valor que vai de 1 a 5. e ao final devemos somar tudo para obtermos o valor total.
Conforme figura abaixo.


Fiz essa rotina para soma nos campos textos com valor numérico....

Me.TxtSoma.Value = Me.TxtNota1 + Me.TxtNota2 + Me.TxtNota3


Minha dúvida consiste em como limitar a digitação somente com os números compreendidos entre 1 a 5 e somando tudo ao final.

Alguém teria uma ideía?
Obrigado

Olá Mylton,

Não seria mais simples no lugar de campos texto, campos Combobox com somente estes dados escolhidos (1~5)?

Seria mais simples de controlar os dados inseridos...

Que acha?

Pode ser.
Mas como faria a soma?

Silvanio
Funcionou assim

Private Sub BtnCalcular_Click()
Me.TxtSoma.Value = Me.teste1 + Me.teste2 + Me.teste3
End Sub

Obrigado

OK vlw...