Dim Hora1 As Date, Hora2 As Date, d As Long
Hora1 = CDate(InputBox("Ingrese la hora inicial", "Fecha", Format$(Time, "hh:nn")))
Hora2 = CDate(InputBox("Ingrese la hora final", "Fecha", Format$(Time, "hh:nn")))
MsgBox "La diferencia es " & DateDiff("n", Hora1, Hora2) & " minutos"