[Resolvido]Para de exibir mensagem

amigos boa noite, é um pequena detalhe , fiz a busca , mas não consui encontra
fiz 3 consiçoes no If
if <>
 mesgagem  1
elseif <>
 mesgagem  2
else<>
 mesgagem  1

.....
tando asssim

If <>
mesgagem  1
end if
if <>
mesgagem  2
else <>
mesgagem  3
.....

eu ja não lembro mais , como parar de dar mensagem seguinte.
se um caso for verdadeiro ele so da ma mensagem 1(so 1 mensagem)
quando se faz uma com´paração ele da a mensagem da condição e a outra mensagem do que está seguido do Else

Boa tarde tenta o (exit sub) se encontrar

nao da , porque atrapalho outros comando , vou tentar aqui de novo, so uma deve dar.

vou diminuir o tempo de programação , porque tem hora que não passa mais nenhuma lógica mais....

Boa noite neste seu código não daria para usar o select case
https://www.maximoaccess.com/t14914-funcao-interna-select-case

Não select casa é para opções maiores .
Já resolvi aqui pelo exit sub
Obg , vlw pela ajuda.

Fico feliz por ter dar dado certo.