Private Sub FindDatum(ByVal TeZoekenDatum As String)
        Dim ExcelProg As Object = CreateObject("Excel.Application")
        Dim TicketFile As Object = ExcelProg.Workbooks.Open(OpenFileDialog1.FileName)
        Dim TicketList As Object = TicketFile.Worksheets(1)

        Dim GevondenAantal As Integer
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim ZoekCels As Object
        Dim matchCel As Object
        Dim firstFoundAddress As String = Nothing
        ZoekCels = TicketList.Range("E:E")
        matchCel = ZoekCels.Find(TeZoekenDatum, misValue, misValue, misValue, misValue, misValue, misValue, misValue)

        Do Until matchCel Is Nothing
            With ZoekCels
                If String.IsNullOrEmpty(firstFoundAddress) Then
                    firstFoundAddress = matchCel.Address
                End If
                matchCel = .FindNext(matchCel)
                'matchCel = TicketList.Range.ActiveSheet.FindNext(TeZoekenDatum)
                GevondenAantal = GevondenAantal + 1
                If firstFoundAddress = matchCel.Address Then
                    Exit Do
                End If
            End With
        Loop


        GevondenAantal = GevondenAantal - 1
        Label5.Text = GevondenAantal
        ExcelProg.Quit()
    End Sub