Condicional entre valores númericos

Olá pessoal, sou novo aqui no site e este é o meu primeiro post relacionado a uma duvida básica que tenho.
Estou montando um banco para compras de materiais e serviços no qual após o usuário inserir os itens da ordem de compra terei o valor total dos itens somados.
Na empresa temos perfis de aprovação desta ordem de compra por valor. É assim:

Até R$ 1.000 = Aprovador 1
Entre R$ 1.000 e R$ 5.000 = Aprovador 2
Acima de R$ 5.001 = Aprovador 3

Tenho um campo no formulário que após atualizar o Form, o código precisa condicionar o valor total da ordem e definir qual aprovador. Vamos lá

txtValor = Valor total da Ordem de Compra
txtaprovador = Defini qual o nível de aprovador a ordem de compra deve receber.

Tentei assim:
Private Sub btcalcular_Click()
If txtValor.Value > 5000 Then
txtaprovador.value = "Aprovador 3"
ElseIf txtValor.Value > 1000 And < 5000 Then 'Aqui esta dando erro - Eu quero que apareça "Aprovador 2" se o valor estiver na condicional.
txtaprovador.value = "Aprovador 2"
ElseIf txtValor.Value < 1000 Then
txtaprovador.Value = "Aprovador 1"
End If

Não sei qual operador usar para condicionar o valor ENTRE.
Alguem pode me ajudar?

Olá Cristiano...Seja bem-vindo ao fórum.

Para atender a sua solicitação, o código deve ser assim:

Código:



'Se for a partir de 5000, entãso utilize  MAIOR/IGUAL
If txtValor.Value >= 5000 Then
    txtaprovador.Value = "Aprovador 3"
ElseIf txtValor.Value >= 1000 And txtValor.Value <= 5000 Then
    txtaprovador.Value = "Aprovador 2"
ElseIf txtValor.Value < 1000 Then
    txtaprovador.Value = "Aprovador 1"
End If




Copie e cole o código e insira no seu projeto.

OBS: Vale lembrar que o valores para atender as condições estão fixos no código. O melhor seria criar uma tabela com estes valores (e até outros valores que se fizer necessário) e fazer uma consulta para buscar o Aprovador conforme o valor informado.
vou criar um exemplo pra voce e te mando.

Espero ter ajudado.

Boa sorte

Obrigado Alexandre, Funcionou perfeitamente

Cristiano, faltou dar o tópico como resolvido.