Excel TextBox aceitando formato de data inglês

[doc_.]

Bom, fiz um formulário de pesquisa e travei na parte da pesquisa por data.

 

Tipo eu desejo pesquisar só os pedidos que foram recebidos em tal data.

Ex: eu quero localizar o pedido da martins e só sei que foi recebido dia 20/01/2020, pois bem coloco essa data no campo de recebimento do mesmo jeito que está na planilha, no caso no formato brasileiro e não me retorna nada.

Pois bem coloquei a data no campo da pesquisa de recebimento e não me retornou nenhum pedido, só que se eu colocar em formato americano no caso 01/20/2020 o pedido aparece.

O meu computador e o excel está em português e no formato de número as celulas tão em formato de data da região do Brasil.

 

Segue o código dessa textbox:

Private Sub Recebimento_Change()

If CheckBox1 = True Then
    Planilha13.Cells.Range("J3").Clear
    Planilha13.Range("J3") = Recebimento
    Call Filtro
    
Else
    
    Recebimento.Enabled = False
    
End If

End Sub

Essas linhas do checkbox é só pra ativar o campo pra inserir valores quando estiver ativo a caixinha, então ignorem.

O codigo da macro que realiza a pesquisa segue abaixo:

Sub Filtro()

Dim base As Range
Dim crt As Range
Dim filtrada As Range
Dim nome As String

Set base = Planilha1.Range("B3:G64")
Set crt = Planilha13.Range("F2:K3")

base.AdvancedFilter xlFilterCopy, crt, Planilha13.Range("A6:F6")

Set filtrada = Planilha13.Range("A6:F67")

nome = "'" & Planilha13.Name & "'!"

UserForm1.ListBox1.RowSource = nome & filtrada.Address

End Sub

Eu não sei se tem que ter alguma formatação na textbox.

Eu estou começando agora na área do VBA então me desculpem por qualquer coisa nos códigos.

[Basole]

Tente formatar o textbox com o dia e mes invertidos

Planilha13.Range("J3") = VBA.Format(Recebimento, "mm/dd/yyyy")