Boa tarde

Já tentou usar:
Format(Me.txtPais.Text, "mm/dd/yyyy")

[]s

Boa tarde,

Isso aconteceu quando fui jogar valores na célula.
Tem um guambiarra que usa as funções Right e Left que talvez resolva.

Teste:

    Dim Dat     As String
    
    Dat = Sheets("Clientes").Cells(Linha, 6)
    
    'Mês & / & Dia & / & Ano
    form_alterar.Data.Text = Left(Right(Dat, 7), 2) & "/" & Left(Dat, 2) & "/" & Right(Dat, 4)

att,

Boa-noite

Patropi, brunoxro. Não deu certo !

Segue o anexo, o código está no "Módulo1" "Sub pesquisacodigo()"

Coloquei no campo data de nascimento "01/11/1970", depois que abrir o formulário "form_alterar", nem precisa mudar nada, é só clicar no botão para atualizar e já vai inverter a data lá na planilha.

Att,

Francisco

Na rotina ALTERAR, dentro do próprio módulo 1, na linha abaixo use CDATE, vai ficar assim:

Sheets("Clientes").Cells(Linha, 6) = CDate(form_alterar.data.Text)

Bom-dia

Obrigado a todos pelas respostas.

Att,

Francisco