Boa noite!!
Não seria isso..

Private Sub CommandButton1_Click()
    TextBox3.Value = CStr(Val(TextBox1.Value) * Val(TextBox2.Value))
End Sub

Att

Boa noite Alexandre,

É necessário formatar o 3o textbox? Lancei, por exemplo, 05:00 no 1o textbox e 08:00 no 2o e o resultado foi apenas 13, sem formatação.

Agradeço pela ajuda.

Abraços.

Veja se atende

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dias = Val(TextBox1.Text)
Hsdia = TimeValue(TextBox2.Text)
tempo = CDec(Dias * Hsdia)
Hora = Int(tempo * 24) ' calculada qtas horas
Minuto = Int((tempo * 24 - Int(tempo * 24)) * 60) 'calculado qtde minutos
Segundo = ((tempo * 24 - Int(tempo * 24)) * 60 - Int((tempo * 24 - Int(tempo * 24)) * 60)) * 60
If Segundo > 59 Then
    If Minuto + 1 > 59 Then
    Hora = Hora + 1
    Minuto = 0
    Segundo = 0
    End If
End If
TextBox3 = Format(Hora, "00") & ":" & Format(Minuto, "00") & ":" & Format(Segundo, "00") 'Format(h3 * 24, "#0.0")
End Sub

Bom dia!!

Outra maneira, seria..

Private Sub CommandButton1_Click()
TextBox3.Value = WorksheetFunction.Text(Val(TextBox1.Value) * TimeValue(TextBox2.Value), "[hh]:mm")
End Sub

faça os teste e marque seu tópico como resolvido!!!

Att

Obrigado pela ajuda.

Abraços.