Scusa, ma nel tuo programma principale non puoi scrivere

If soggetto.Sposato Then Valore = 690 Else Valore = 0

??