[Resolvido]carregar um campo data retornando somente o ano de outro campo data

Ola galera, bom dia!

Tenho uma dúvida que talvez seja simples para os colegas, mas que estou apanhando e preciso de ajuda.

Preciso pegar o valor de um campo data no formulário ex: 08/10/2016 e carregá-lo em outro campo data retornando somente o ano ex: 2016.

Tentei com o código abaixo, mas esta dando erro no ;


Me.Txt_Ano_Inicial.value = txtdataini

Me.Txt_Ano_Inicial = Format([txtdataini];"yyyy")

Se alguém puder ajudar ficarei grato.

Talvez ajude...


Private Sub UserForm_Initialize()

Dim data As Date

data = Now()

label_data= Format(data, "dd /mm /yyyy")
label_ano = Format(data, " yyyy")

End Sub

Obrigado pelo dica Joselia, adaptei e deu certo.