Как сравнить время в запланированных делах?

Public Class shelduleForm
 
    Private Sub appButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles appButton.Click
 
        ' объявляем переменные
        Dim sheldule As String ' задание в стринг формате
        Dim time As Date ' время в поле
        Dim collection As Date ' время в поле
 
        sheldule = shelduleTextBox.Text
        time = Convert.ToDateTime(DateTimePicker.Value)
 
        'вводим задане и время в поля
        sheldulsListBox.Items.Add(sheldule) ' получаем значения в листбоксы
        collection = CDate(sheldulsListBox.Items.Item(CInt(sheldule)))
        If timeTaken(time, collection) = True Then
            MessageBox.Show("Ваше задание на это время уже назначено", "Добавление задания невозможно", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            timesListBox.Items.Add(time.ToShortTimeString)
        End If
    End Sub
    Function timeTaken(ByVal toTime As Date, ByVal coll As Date) As Boolean
 
        If toTime = coll Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

Public Class ScheduleForm
    Private Sub appButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles appButton.Click
        ' объявляем переменные
        Dim sheldule As String = shelduleTextBox.Text  ' задание в стринг формате
        Dim time As DateTime = DateTimePicker.Value    ' время в поле
 
        'проверка занятости времени
        If Not timeTaken(time) Then
            'если время не занято (вернуто FALSE) добавляем новое задание в таблицу
            Dim newTask As New ListViewItem(sheldule) 'создаем новый экземпляр строки ListView с названием задания (колонка 1)
            newTask.SubItems.Add(Format(time, "HH:mm")) 'присваимваем время заданию в тяблицу (колонка 2)
            ScheduleListView.Items.Add(newTask) 'добавляем строку в таблицу
        End If
    End Sub
 
    Function timeTaken(tTime As DateTime) As Boolean
        For Each lvItem As ListViewItem In ScheduleListView.Items
            If lvItem.SubItems(1).Text = Format(tTime, "HH:mm") Then
                MessageBox.Show("Ваше задание на это время уже назначено", "Добавление задания невозможно", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return True
            End If
        Next
        Return False
    End Function
End Class

Public Class ScheduleForm
    Private Sub appButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles appButton.Click
        ' объявляем переменные
        Dim sheldule As String = shelduleTextBox.Text  ' задание в стринг формате
        Dim time As DateTime = DateTimePicker.Value    ' время в поле
 
        'проверка занятости времени
        If Not timeTaken(time) Then
            'если время не занято (вернуто FALSE) добавляем новое задание 
            ScheduleListBox.Items.Add(sheldule & vbTab & Format(time, "HH:mm")) 'добавляем новое задание в список
        End If
    End Sub
 
    Function timeTaken(tTime As DateTime) As Boolean
        For Each lvItem As String In ScheduleListBox.Items
            If lvItem.Split(CChar(vbTab))(1) = Format(tTime, "HH:mm") Then
                MessageBox.Show("На это время уже назначено следующее задание:" & vbCrLf & lvItem, "Добавление задания невозможно", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Return True
            End If
        Next
        Return False
    End Function
End Class