On Error ved ulovlig dato

Jeg vil gerne fange, hvis der indtastes en ikke-eksisterende dato (fx. 31-09-2002) og til dette ville jeg bruge følgende:

Dim y As String
y = "31-09-2002"

Dim x As Date
x = CDate(y)
On Error GoTo ErrorHandler
ErrorHandler:
MsgBox "Error number " & Err.Number & ": " & Err.Description

Når jeg kører dette, får jeg imidlertid en run-time error 13? Når jeg kører den med en lovlig dato (fx. 30-09-2002) giver den error nummer 0.