CALCULAR HORAS NO FORMATO TEXTO

 
Private Function SomaHora(Hora1 As String, Hora2 As String) As String
    Dim H1 As Long, M1 As Integer, S1 As Integer
    Dim H2 As Long, M2 As Integer, S2 As Integer
    Dim T As Long, T1 As Long, T2 As Long
    
    H1 = Val(Left(Hora1, 2))
    M1 = Val(Mid(Hora1, 4, 2))
    S1 = Val(Right(Hora1, 2))
    
    H2 = Val(Left(Hora2, 2))
    M2 = Val(Mid(Hora2, 4, 2))
    S2 = Val(Right(Hora2, 2))
    
    T1 = S1 + (M1 * 60) + (H1 * 3600)
    T2 = S2 + (M2 * 60) + (H2 * 3600)
    T = T1 + T2
    
    H1 = Int(T / 3600)
    T = T - (H1 * 3600)
    
    M1 = Int(T / 60)
    S1 = T - (M1 * 60)
    
    SomaHora = Format(H1, "00") & ":" & Format(M1, "00") & ":" & Format(S1, "00")
End Function
Private Sub Command1_Click()
    MsgBox SomaHora("46:17:45", "13:30:12")
End Sub