Is this the code in the "change" button
Code:
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