[Resolvido]Auxílio com matriz

Olá pessoal!

Estou atualizando um projeto antigo e tenho dúvidas qto ao uso de matriz.

Em determinada parte do sistema o usuário informa um número que varia de 1 a 40. Qdo ele é inserido a primeira vez, o sistema simplesmente grava o número em um campo da tabela.
A partir do segundo número é necessário comparar se este novo número já foi gravado. Se foi gravado, então deve ser emitida uma mensagem dizendo que o tal número já foi gravado e quais as posições estão disponíveis - dentro das 40.

Pensei em usar uma matriz para gravar os números, mas não sei como fazer para atribuir o valor a uma posição da matriz e depois percorrê-las para ver se o novo número já estaria gravado nela.

Boa tarde,
Veja aqui http://vba/vba_p3.php

Obrigado Alexandre.

Entendi o funcionamento da matriz, o problema agora está no laço For Next
Não consigo sair dele.

Veja o código

Código:

Private Sub txtNumeroCama_AfterUpdate()
    Dim intCama        As Integer
    Dim i              As Integer
    Dim arrNCama(40)    As Integer
   
    For i = 1 To 40 Step 1
        intCama = NumeroCama
            If intCama = i Then
                MsgBox "Esta cama já está ocupada, selecione outra", vbSystemModal + vbExclamation, "Sistema Educacional"
                Me.Undo
                DataColchao.SetFocus
            Else
                arrNCama(i) = intCama
                i = intCama + i
            End If
    Next i
End Sub

Podes me ajudar?

Não consigo ver como está no site passado pelo Alexandre, mas falta ae algo;

Insira o Exit Sub, a seguir ao DataColchao.SetFocus.

Olá JPaulo, Grato pelo retorno

A implantação do código na propriedade após atualizar de uma txt em sub formulário não está produzindo o resultado esperado.

Com a sua informação o loop sai do laço contínuo, mas o código ainda não faz a comparação qdo tem dois valores iguais, ou seja, está passando direto.

Na linha arrNCama(i) = intCama a minha intenção é que a matriz receba o primeiro número para compará-lo ao próximo número a ser informado e, se forem iguais, retornar a

MsgBox "Esta cama já está ocupada, selecione outra", vbSystemModal + vbExclamation, "Sistema Educacional"

Veja o problema abaixo:

Em determinada parte do sistema o usuário informa um número que varia de 1 a 40. Qdo ele é inserido a primeira vez, o sistema simplesmente grava o número em um campo da tabela.
A partir do segundo número é necessário comparar se este novo número já foi gravado. Se foi gravado, então deve ser emitida uma mensagem dizendo que o tal número já foi gravado e quais as posições estão disponíveis - dentro das 40.

   Obrigado novamente.

Consegui resolver o problema e estou dando o tópico como resolvido, mas se alguém já tem pronto uma outra sugestão ou que esteja em andamento, por favor, me enviem.

Grato a todos.