Buongiorno, controllo variabili tipo date

Buongiorno,

Avrei bisogno di un aiuto per un piccolo programmino che controlla semplicemente se una data selezionata nel datetimepicker ricade il 1 Novembre dello stesso anno e quale sia la prima domenica di Novembre, mi sfugge qualcosa perchè le date risultano sempre "uguali" anche quando non lo sono.

Dim PrimoNovembre As Date
PrimoNovembre = New Date(DateTimePicker1.Value.Year, 11, 1)

        'Calcolo in quale giorno ricade la prima domenica di Novembre
        Dim data1, data1domenica As Date
        Dim k As Integer
        data1 = New Date(DateTimePicker1.Value.Year, 11, 1)
        While k < 7
            If data1.DayOfWeek = 0 Then
                data1domenica = New Date(DateTimePicker1.Value.Year, 11, (k + 1))
                MsgBox("la prima domenica è giorno : " & data1domenica)
                Exit While
            Else
                data1 = data1.AddDays(1)
                k = k + 1
            End If
        End While



        'controllo se il datatimepicker è impostato su giorno 1 novembre
        If PrimoNovembre = DateTimePicker1.Value Then
            MsgBox("sono diversi")
        Else
            MsgBox("sono uguali")
        End If

Premetto che le mie conoscenze sono basilari/scolastiche.

Rigrazio chi potra' auitarmi