[Resolvido]Obter resultado com a separação de ponto de virgula em vba

Camaradas,

Necessito pf da vossa ajuda.
Necessito de obter resultado para uma cx de texto de valores separados com ponto e virgula em VBA.

No exemplo que envio: no [FormTurma] na cx de texto [TextNIF] os vários nif dos alunos da turma.
Resultado pretendido: 2000000;2000001;2000002

Agradeço desde já a vossa ajuda.

Em um botão coloque:

Dim Rs As DAO.Recordset
Dim StrSQL As String
Dim StrTMP As String

StrSQL = "SELECT * From tb_Alunos WHERE Turma = " & Me.ID_turma & ""
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF
 
If StrTMP = "" Then  ' 1º laço do Loop
    StrTMP = Rs!NIF
Else
    ' A linha abaixo só vai ocorrer a partir do 2º laço
    StrTMP = StrTMP & ";" & Rs!NIF
End If
Rs.MoveNext
Loop
StrTMP = Mid(StrTMP, 1)
Me.TextNIF = StrTMP

Cumprimentos.

Muito obrigado a ambos pelo apoio e ensinamento.

testado a 200%

Obrigado.

Boas Avelino.. vossa ajuda ajudou não somente ao colega como mim também..

Nosso raciocínio foi o mesmo exceto a utilização do Recordset do próprio subformulário.
Eu até havia tentado isso.. falhei pela falta sufixo "Clone" na instrução.

Não tive paciência para verificar isto ai utilizei a consulta.
Mas está com total razão quanto ao desempenho.

Obrigado.