Bom dia

Caros, sei que essa pergunta pode ser banal para alguns, mas estou sem mais ideias para tentar resolver esse problema,

tenho um formulário que cadastra alguns dados em uma planilha, porem quando dou o comando salvar, o VBA salva a data no padrão americano e preciso que a data seja salva no padrão português BR, vou colar abaixo a rotina que uso na txtbox onde preencho com a data:

Private Sub txtprazodeentrega_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    'tentei todas os códigos abaixo:
    'txtprazodeentrega = Format(data_lida, "mm/dd/yyyy")
    'txtprazodeentrega = Format(data_lida, "dd/MM/yyyy")
    'txtprazodeentrega = Format(txtprazodeentrega.Value, "dd/MM/yyyy")
    'CADASTRO.Range("A1").Value2 = Format(Me.txtprazodeentrega.Value, "mm/dd/yyyy")
    'Nova_data = Format(data_lida, "mm/dd/yyyy")
    'Nova_data = Format(data_lida, "dd/mm/aaaa")
    'Nova_data = Format(data_lida, "mm/dd/aaaa")
    'Nova_data = Format(data_lida, "dd/mm/aaaa")
    'txtprazodeentrega = DateValue(TextBox.Value)
    'Worksheets("CADASTRO").Range("J1") = DateValue(TextBox.Value)
    'nova_data = Format(NumberFormat, "mm/dd/yyyy")
    
    
    txtprazodeentrega.MaxLength = 10 'XX/XX/XXXX
 
    Select Case KeyAscii
    Case 8       'Aceita o BACK SPACE
    Case 13: SendKeys "{TAB}"    'Emula o TAB
    Case 48 To 57
    If txtprazodeentrega.SelStart = 2 Then txtprazodeentrega.SelText = "/"
    If txtprazodeentrega.SelStart = 5 Then txtprazodeentrega.SelText = "/"
    Case Else: KeyAscii = 0     'Ignora os outros caracteres
    End Select


End Sub

>>> esse txtbox se chama prazo e entrega, e já tentei várias dicas e nenhuma deu resultado; se alguém souber de mais alguma;

sou entusiasta no excel e tudo que fiz até agora eu aprendi sozinho, então desde já peço perdão se faço alguma pergunta que pareça simples ou obvia aos olhos de quem domina esta ferramenta.