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