Sub App_Start
Msgbox(MSAdd("123:33","40:35"))
End Sub
Sub MSAdd(x,y)
i = StrIndexOf(x,":",0)
If i = -1 Then Return "00:00"
m1 = SubString(x,0,i)
s1 = SubString(x,i+1,StrLength(x)-i-1)
i = StrIndexOf(y,":",0)
If i = -1 Then Return "00:00"
m2 = SubString(y,0,i)
s2 = SubString(y,i+1,StrLength(y)-i-1)
s = s1 + s2
m = m1 + m2 + Int(s/60)
Return m & ":" & Format((s Mod 60),"D2")
End Sub