Gravando label

Finalmente consegui fazer a funcao funcionar!!! Agora tenho 09 label, preciso carrega-los simultaniamente atraves da funcao. No campo da tabela ja tenho gravado (254551), a funçao vai pegar e somar + 1 depois carregar o primeiro label com (254552). tentei assim:

I5 = UBound(TelaR6())
GeraNumero
      ReDim Preserve TelaR6(i + 1)
      TelaR6(i + 1) = Numerar

A variavel TelaR6 corresponde a uma coluna com 09 labels. O problema é adaptar o codigo para acionar a funcao para carregar cada label, no caso carrego o primeiro gravo o numero no campo e aciono a funcao novamente para gerar o proximo numero no segundo label e assim por diante. Aguem tem uma ideia?

Public Sub GeraNumero()
AtivarBancoLM
tmpCodigo = NOVO_COD_DOCUMENTO
Numerar = NovoCodigo
End Sub

Public Function NOVO_COD_DOCUMENTO() As Long
Dim rsParam As New Recordset
Dim rsParam2 As New Recordset
Dim Sql As String

Sql = "SELECT * FROM TB_Documento "
Set rsParam2 = Banco_LM.Execute(Sql)
Do Until rsParam2.EOF
rsParam2.MoveNext
Loop
NovoCodigo = rsParam2.RecordCount
rsParam2.Close

If NovoCodigo = 0 Then
         ' se não houver nenhum registro vc vai usar o 1o numero

Sql = "SELECT * FROM TB_PARAM "
Set rsParam = Banco_LM.Execute(Sql)

'PEGA OS VALORES INICIAIS E FINAIS
P_N_INICIAL = rsParam("N_Inicial")
P_N_FINAL = rsParam("N_Final")
NovoCodigo = 0
If P_N_INICIAL > 0 Then
NovoCodigo = CLng(P_N_INICIAL)
End If
rsParam.Close

Else

Sql = "SELECT Max(Doc) As Codigo FROM TB_Documento"
Set rsParam2 = Banco_LM.Execute(Sql)

With rsParam2
  If IsNull(!Codigo) Then
     NovoCodigo = CLng(P_N_INICIAL)
  Else
     NovoCodigo = !Codigo
  End If
End With
NovoCodigo = CLng(NovoCodigo) + 1
End If
End Function