Create DiscPaybackPeriod.vb