Sub Data()
Dim Data As Date

Data = DateSerial(Year(Date), 6, 1)

If Date < Data Then
    MsgBox "A data é menor !"
Else
    MsgBox "A data não é menor !"
End If
End Sub

Vc só esqueceu da barra entre o mês e o ano:

Data = "01/09/" & Year(Date)

Reinaldo

O que seria esse 6 ?
Acredito que digitou errado !

.
Seria bom alguém explicar o que esse código faz exatamente (qual a finalidade) para quem consultar o tópico futuramente, por ter o mesmo problema, saber!!
.

Não digitei errado não; como o colega Edson informou, em seu exemplo faltou uma Barra ("/") depois do mês.
Como o VBA "entende" melhor data no padrão americado (mm/dd/yyyy); "passando" a string data no padrão Brasileiro pode; eventualmente; gerar erro/inversão de dia com o mes; sugeri itilizar o DateSerial.
DateSerial (similar a função data no excel), e requerido Ano/mes/dia; como exemplo forneci a data de 01/06/2018
Copa; a finalidade real não sei, mas a rotina simplesmente compara uma data com a data do dia (Date) informando se é maior ou não.

JSCOPA

Se o mês não for dia 01/09, não conseguirá transferir dados do mês 08 para 09