Bom dia a todos!

Estou com um problema e já pesquisei muito a respeito e não consegui achar a solução.
Tenho uma planilha com alguns lançamentos feito atráves de UserForm, e um dos dados digitados é a "Data do Lançamento". Até aí tudo bem.
Acontece que estou tentando gerar um relatório que filtre os lançamentos entre uma data inicial e data final que são inseridos em TextBox, porém o excel não está fazendo corretamente e está trazendo as linhas incorretas. Depurando o código abaixo, notei que ao verificar o valor de "Plan5.Cells(X, 1)" que é a célula verificada na planilha do 'banco de dados', ele trás a data normalmente dd/mm/yyyy e o valor do "fm_RelatorioPorPeriodo.tb_DataInicial" está com aspas "dd/mm/yyyy", acredito que esteja aí o erro do código. Outra questão é o tratamento padrão do excel para data (mm/dd/yyyy).

O código para inserir a data do lançamento na planilha dos dados é (não sei se estou fazendo corretamente):

ActiveCell = Format(fm_LancamentoFaltas.tb_DataLancamento, "dd/mm/yyyy")

Código do Relatório

Sub RelatorioPorPeriodo()
        
    Sheets("Relatório por Aluno").Visible = True
    Sheets("Relatório por Aluno").Range("A2:K200000").ClearContents
    
        UltimaLinha = Plan5.Cells(Rows.Count, "A").End(xlUp).Row
        UltimaColuna = Plan5.Cells(1, Columns.Count).End(xlToLeft).Column
        linha = 2
        
            For X = 2 To UltimaLinha
                If Plan5.Cells(X, 1) >= Format(fm_RelatorioPorPeriodo.tb_DataInicial, "dd/mm/yyyy") And Plan5.Cells(X, 1) <= Format(fm_RelatorioPorPeriodo.tb_DataFinal, "dd/mm/yyyy") Then
                    For i = 1 To UltimaColuna
                        Plan6.Cells(linha, i) = Plan5.Cells(X, i)
                    Next
                    linha = linha + 1
                End If
            Next
          
    Unload fm_RelatorioPorAluno
                
End Sub

Peço a ajuda de vocês, como posso resolver este problema?
Agradeço desde já e um ótimo final de semana a todos!