After all.
The error line is 8:::

Function timeConvert(given)
Dim a As Integer
Dim b As Integer
Dim time As String
time = Replace(given, "AM", "")
time = Replace(given, "PM", "")
time = Replace(given, ":", "")
a = time / 100
b = given Mod 60
time = "AM"
If a = 0 Then
a = 12
End If

If a > 12 Then
a = a - 12
time = "PM"
End If

If b < 10 Then
Dim c As String
time = Str(a) + ":" + "0" + Replace(Str(b), " ", "") + time
Else
time = Str(a) + ":" + Replace(Str(b), " ", "") + time
End If
timeConvert = time
End Function
Function routeEqual(given1, given2)
given1.timeOpen = given2.timeOpen
given1.timeClose = given2.timeClose
given1.status = given2.status
given1.name = given2.name
given1.day = given2.day
For x = 0 To 6
given1.daysRun(x) = given2.daysRun(x)
Next x
End Function