[Resolvido]Função para incluir nome em campos texto

Por favor,

preciso criar uma instrução que insira a origem do controle de vários campos.

Os campos estão em sequência numérica: texto1,texto2...texto30.

O valor a ser inserido também será sequencial:

texto1.ControlSource = Mid(texto1,1,1)
texto2.ControlSource = Mid(texto2,2,1)
...
texto30.ControlSource = Mid(texto30,30,1)

Grato.

De mais detalhes do que necesita..

Não basta: Me.SeuCampo = Mid(SeuCampo,1,1) ?

Cumprimentos.

São mais de 100 campos que devem receber ControlSource com a numeração sequencial que eu expus abaixo.

Gostaria de automatizar o processo: ao invés de fazer campo a campo, pensei numa estrutura de laço que pudesse fazer de uma só vez.

Dim X as Integer


For X = 1 to 100
Me("NomeCampo" & X) = Mid(Me("SeuCampo" & X),1,1)
Next X

Cumprimentos.