Fejl ved indlæsning af property i class module

Når jeg kører følgende sump kode får jeg fejlen "Invalid procedure call or argument" når jeg når til den sidste "End Property". Hvad kan dette skyldes?

Property Let Ccy(curIn As String)
  ccyCode = curIn
End Property
Property Get Ccy() As String
  Ccy = ccyCode
End Property