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