Bom dia, A todos!

preciso da ajuda de vcs numa questão que parece simples, achei que sabia mais não estou conseguindo
estou tentando este código abaixo e não funcionou, se alguém puder me ajudar!

 
    Dim horas As Double
    Dim Dias As Double
    Dias = txtDiasTrab
    horas = txtHorasTr
    me. txtTempoTrab = Format(TimeValue(Dias * horas), "hh:mm")

Quero que a txtTempoTrab fique no formato Hora (HH:MM) ao digitar quantidade de dias e e quantidade de horas