Gostaria de Acionar Data e Hora no replace

[Ribeiro]

Como está esta ficando assim:

Filename1 = "celular1_dt_" & replace (date (), "/", "") & FileType  

Resultado: celular1_dt_03022019.txt

Gostaria: celular1_dt_03022019_1845.txt

1845 seria 18 horas e 45 segundos.