Problemas com datediff

Tenho uma função para retornar intervalo entre duas datas.
Essas datas vem de um banco de dados conectado via ODBC.

Resumindo...
dtDuration = Diff2Dates("hns", #5/29/2017 11:25:40 AM#, #5/29/2017 12:03:50 PM#) DA CERTO
dtDuration = Diff2Dates("hns", HoraA, HoraF) DA ERRADO

HoraA = 29/05/2017 11:25:40
HoraF = 29/05/2017 12:03:50

Na verdade preciso dos minutos, se a diferença entre ambos for maior que 40 minutos eu tenho que executar outra ação.
No excel da certo diminuir uma data pela outra mas no VBA não consigo fazer funcionar por nada.
Já tentei usar format e cdate, alternando os formats, e nada também.

Já tentei format em "m/DD/yyyy hh:mm:ss AM/PM" pra ficar igual e não foi também

Não sei porque hoje funcionou algo que já tinha feito ontem.
DataA = CDate("29/05/2017 11:28:40")
DataF = CDate("29/05/2017 12:03:50")
tmp.Value = CDate(Format(((DataA) - (DataF)), "hh:nn:ss"))

Se deu certo, marque o "Resolvido"