SUB Add ( Text AS String [ , After AS Integer ] )