¿Cómo son tus fórmulas ahora?
Puedes crear tu propia función, algo como:
Public Function Tiempo(ByVal Distancia As Double, ByVal Velocidad As Double) As String
Dim Division As Double
Dim Dias As Double
Dim Horas As Double
Dim Minutos As Double
Division = Distancia / Velocidad
Dias = Int(Division / 24)
Horas = Int((Division / 24 - Dias) * 24)
Minutos = Int((((Division / 24 - Dias) * 24) - Horas) * 60)
Tiempo = Dias & " días, " & Horas & " horas y " & Minutos & " minutos"
End Function