Visual Basic - Ayuda con Esta validacion en Excel

'Vencimiento

Set h = Worksheets("Base de Datos")

For i = 1 To h.Range("B" & Rows.Count).End(xlUp).Row

    n = 0

    If h.Cells(i, "j") = Date Then

        Set dam = CreateObject("outlook.application").CreateItem(0)

        dam.To = h.Cells(i, "AV")

        dam.Subject = h.Cells(i, "E")

        dam.Body = "Contrato Vence el: " & h.Cells(i, "H") & ". Arrendante: " & h.Cells(i, "F")

        dam.Display

    End If

Next

Private Sub CommandButton1_Click()

If TextBox2.Value = 20171 Then

MsgBox "Bienvenido al sistema de búsquedas", vbInformation, "Sistema de Búsquedas"

Load UserForm1

Unload Me

          UserForm1.Show

    Set h = Worksheets("Contratos")

    For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row

        n = 0

        If h.Cells("G" & i) = Date And _

           UCase(h.Cells("I" & i)) = "" Then

            Set dam = CreateObject("outlook.application").CreateItem(0)

            dam.To = h.Cells(i, "AA")

            dam.Subject = h.Cells(i, "C")

            dam.Body = "Número: " & h.Cells(i, "A") & ". Acción: " & h.Cells(i, "G")

            dam.Display

        End If

    Next

Else

MsgBox "La contraseña ingresada es incorrecta", vbCritical, "Sistema de Búsquedas"

End If

End Sub