Gerando parcela de venda

Boa tarde a todos,

Tenho um frm Venda (Fvenda) e um frm Parcela ( frmPagamento)

Preciso criar um criterio para gerar a parcela da seguinte forma, exemplo:

Se a venda for menor de 1.000,00 então a parcela será podera ser feita em ate 3x, se for maior do que podera fazer em ate 5x.
Caso o vendedor precisar parcelar em mais vezes com a quantia de ate 1.000,00 terá que emitir uma senha para este fim. entao estava tentando da seguinte forma:

If Me.txtot < 1000 Then
Me.Parcela = 3
Else
...... nao consegui realizar o restante

pensei em ultilizar o ( InputBox("Informe a senha :", _) mais não sei como fazer tbm.


Nao sei se fui claro, mais poderiam me ajudar por favor.

Boa tarde, danilo
If Me.txtot < 1000 Then
if Msgbox("Pretende parcelar em 3 vezes?",vbyesno)=vbyes then
Me.Parcela = 3
else
if InputBox("Para parcelar mais que 3 vezes, tem de informar a senha")="senha" then
Me.Parcela = inputbox("Quantas parcelas pretende executar?")
else
Me.Parcela = 3
end if
end if
Else
Me.Parcela = 5
End If

Alexandre muito obrigado, eu dia eu chego no seu nivel.
Funcionou direitinho, porem quanto ultrapassa o valor de 1.000,00, automaticamente ele vai para o parcelamento de 5 vezes, gostaria de poder ter a opção de inserir a quantidade de parcelas caso o cliente prefira, desde que seja ate em 5 vezes.

Poderia me ajudar nesta questao por favor?

Apenas fiz o que pediu.
Não sei se entendi bem o que pretende. Pretende que lhe seja pedido a senha? Veja se é isto (sem senha):
select case Me.txtot
case <1000
if Msgbox("Pretende parcelar em 3 vezes?",vbyesno)=vbyes then
Me.Parcela = 3
else
if InputBox("Para parcelar mais que 3 vezes, tem de informar a senha")="senha" then
Me.Parcela = inputbox("Quantas parcelas pretende executar?")
else
Me.Parcela = 3
end if
case else
LeParcela:
Me.Parcela = inputbox("Quantas parcelas pretende executar?",,5)
if Me.Parcela>5 then goto LeParcela
end select

Olá alexandre boa noite,

Agora esta dando erro de compilação conforme a imagem em anexo