I am getting this error while trying to use the control...

"Type mismatch "

The function is:

Private Sub Command1_Click()
'ways(routeList.ListIndex).timeOpen = timeConvert(Trim(timeStart.Text))
'ways(routeList.ListIndex).timeClose = timeConvert(Trim(timeEnd.Text))
ways(routeList.ListIndex).timeOpen = Format(Trim(timeStart.Text), "hh:mm AMPM")
ways(routeList.ListIndex).timeClose = Format(Trim(timeStart.Text), "hh:mm AMPM")
target = fillTime(routeList.ListIndex)
End Sub

===>The error place
schedway = ways