The previous code I wrote won't work. Try this instead.
tHrs.Caption = CNum(hrs1.Caption) + CNum(hrs2.Caption) + CNum(hrs3.Caption) + CNum(hrs4.Caption) + CNum(hrs5.Caption) + CNum(hrs6.Caption)
Public Function CNum(ByVal X As Variant) As Variant
If IsNumeric(X) = True Then
CNum = CDbl(X)
Else
CNum = 0
End If
End Function