Private Sub Command1_Click()
MsgBox sumatime(Time, Time)
End Sub
Public Function sumatime(ByVal Hora1 As String, Hora2 As String) As String
Dim s As String, m As String, h As String
s = 0: m = 0: h = 0
Hora1 = Format(Hora1, "HH:MM:SS")
Hora2 = Format(Hora2, "HH:MM:SS")
s = Val(Right(Hora1, 2)) + Val(Right(Hora2, 2))
If s >= 60 Then s = s - 60: m = m + 1
m = m + Val(Mid(Hora1, 4, 2)) + Val(Mid(Hora2, 4, 2))
If m >= 60 Then m = m - 60: h = h + 1
h = h + Val(Left(Hora1, 2)) + Val(Left(Hora2, 2))
s = IIf(Len(s) = 1, 0 & s, s)
m = IIf(Len(m) = 1, 0 & m, m)
h = IIf(Len(h) = 1, 0 & h, h)
sumatime = h & ":" & m & ":" & s
End Function