جمع رشته (ساعت) به شکل خاص

این رو توی بخش فرومول کریستال رپورت نوشتم اما جواب نمیده
من می خوام دو رشته رو که که هر رشته با / جدا شده رو هر سمت / رو از رشته ها با هم جمع کنم(ساعت هستش) این توی محیط vb.net درست کار می کنه اما اینجا کار نمیکنه
shared tindex as number
Dim intHour, intMin, intHour1, intMin1 As number
Dim SplitAdding1() As String
Dim SplitAdding() As String
SplitAdding1 = {RptOverTimeList.Extra1}.Split("/")
SplitAdding2 = {RptOverTimeList.Extra2}.Split("/")
If SplitAdding.Length < 2 Then
intHour = Val(SplitAdding.GetValue(0))
Else
intHour = Val(SplitAdding.GetValue(0))
intMin = Val(SplitAdding.GetValue(1))
End If
If SplitAdding1.Length < 2 Then
intHour1 = Val(SplitAdding1.GetValue(0))
Else
intHour1 = Val(SplitAdding1.GetValue(0))
intMin1 = Val(SplitAdding1.GetValue(1))
End If
intHour += intHour1
intMin += intMin1
If intMin > 59 Then
intHour1 = Fix(intMin / 60)
intMin = intMin Mod 60
intHour += intHour1
End If
If intMin.ToString.Length < 2 Then
tindex = intHour & "/0" & intMin
Else
tindex = intHour & "/" & intMin
End If
formula=tindex