Visual Basic - URGENTE: Sumar minutos

Necesito ayuda, por favor. Requiero sumar el tiempo de dos canciones... por ejemplo: que tenga una cancion de 2:15 y sumarla a otra de 3:56 y que me de como resultado los 6:11 que seria la suma de las dos canciones.....

Gracias

Puedes hacerlo de con la función DateAdd de la siguiente forma

DateAdd("s", 135,"00:03:56")'135 sería el número de segundos de 2:15

con esta función puedes sumar los minutos hasta un máximo de 24 horas ya que luego devuelve fechas, si no te vale prueba con la siguiente función, el formato del tiempo a pasar es "hh:nn:ss"

Public Function CalcularTiempo(Signo As String, Tiempo1 As String, Tiempo2 As String) As String

'Variables que sirven para saber el número de segundos que componen los tiempos que se
'quieren sumar/restar
Dim Segundos As Long
Dim Segundos2 As Long
Dim Auxiliar As Long

On Error GoTo Errata

'Se suman las horas como segundos(La longitud a coger será la de Tiempo(1/2) menos las
'seis posiciones de los segundos y minutos más los dos puntos ya que Tiempo(1/2) puede
'ser mayor de 99 horas, más de dos posiciones)
Segundos = Val(Mid(Tiempo1, 1, Len(Tiempo1) - 6)) * 3600
Segundos2 = Val(Mid(Tiempo2, 1, Len(Tiempo2) - 6)) * 3600
'Se suman los minutos como segundos
Segundos = Segundos + Val(Mid(Tiempo1, 4, 2)) * 60
Segundos2 = Segundos2 + Val(Mid(Tiempo2, 4, 2)) * 60
'Se suman los segundos
Segundos = Segundos + Val(Mid(Tiempo1, 7, 2))
Segundos2 = Segundos2 + Val(Mid(Tiempo2, 7, 2))

Select Case Signo
Case "+"
'Se halla el resultado entero del total de segundos entre 3600 que serán las horas
'del resultado
Auxiliar = (Seg

Puedes hacerlo de con la función DateAdd de la siguiente forma

DateAdd("s", 135,"00:03:56")'135 sería el número de segundos de 2:15

con esta función puedes sumar los minutos hasta un máximo de 24 horas ya que luego devuelve fechas, si no te vale prueba con la siguiente función, el formato del tiempo a pasar es "hh:nn:ss"

Public Function CalcularTiempo(Signo As String, Tiempo1 As String, Tiempo2 As String) As String

'Variables que sirven para saber el número de segundos que componen los tiempos que se
'quieren sumar/restar
Dim Segundos As Long
Dim Segundos2 As Long
Dim Auxiliar As Long

On Error GoTo Errata

'Se suman las horas como segundos(La longitud a coger será la de Tiempo(1/2) menos las
'seis posiciones de los segundos y minutos más los dos puntos ya que Tiempo(1/2) puede
'ser mayor de 99 horas, más de dos posiciones)
Segundos = Val(Mid(Tiempo1, 1, Len(Tiempo1) - 6)) * 3600
Segundos2 = Val(Mid(Tiempo2, 1, Len(Tiempo2) - 6)) * 3600
'Se suman los minutos como segundos
Segundos = Segundos + Val(Mid(Tiempo1, 4, 2)) * 60
Segundos2 = Segundos2 + Val(Mid(Tiempo2, 4, 2)) * 60
'Se suman los segundos
Segundos = Segundos + Val(Mid(Tiempo1, 7, 2))
Segundos2 = Segundos2 + Val(Mid(Tiempo2, 7, 2))

Select Case Signo
Case "+"
'Se halla el resultado entero del total de segundos entre 3600 que serán las horas
'del resultado
Auxiliar = (Seg