a = TimeValue(Range("A2").Value)
  b = TimeValue(Range("A1").Value)
  a = TimeSerial(DateDiff("h", a, b), DateDiff("n", a, b), DateDiff("s", a, b))
  Range("A3").NumberFormat = "@"
  Range("A3").Value = Format(a, "hh:nn:ss")