SUB Add ( Value AS Variant [ , Index AS Integer ] )