Private Type Routes
daysRun(7) As Integer
timeOpen As Integer
timeClose As Integer
status As Integer
name As String
day As Integer
End Type
Dim schedway() As Routes
Dim haltVar As Integer
Dim target As Variant


Dim wsize As Integer
Dim wasize As Integer
Dim r As Integer
Dim p As String
Dim q As String