VB6 Subroutine to replace vba code

I need three VB6 subroutines. You can bid on as many or as few of these as you like. Aside from bid price consideration, preference will be given to coder that can do all 3. Note that it is perfectly OK if these routines generate warning message(s) to the user. Must work with pwd protected VBA project (pwd is apple). The first VB6 Subroutine should do the following to the VBA Project of a Microsoft Visio File: 1) Replace all code contained in the "This Document" module with the contents of a text file. 2) Delete module1 if it exists and replace with a selected bas file 3) Delete module2 if it exists and replace with a selected bas file 4) The usage should be: Call UpdateVBACode(VisioFilename, ThisDocumentTextFileName, Module1basFileName, Module2basFileName) where: VisioFilename = Visio file name to insert code into ThisDocumentTextFileName = text file name that contains code to be put into "This Document" module Module1basFileName = the bas file name that will insert (or replace if non existing) [login to view URL] of the VBA project Module2basFileName = the bas file name that will insert (or replace if non existing) [login to view URL] of the VBA project The second VB6 subroutine should do the following to the VBA project of a Microsoft Visio File: 1) Delete a specified form 2) The usage should be: Call DeleteVBAForm(VisioFileName, FormName) where: VisioFilename = Visio file name to delete form from FormName = Name of the form to be deleted The third VB6 subroutine should do the following to the VBA Project of a Microsoft Visio File: 1) Set a COM reference to a Microsoft Visio Stencil File (vss). 2) Usage should be: Call SetCodeReference(VisioFileName, VisioStencilName) where: VisioFilename = Visio file name (vsd) that reference is set from VisioStencilName = Visio stencil name (vss) that the reference is set to. Good coding practices (including error trapping and commenting) is a must. Please feel free to ask questions for clarification. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. ## Platform Microsoft Windows XP Microsoft Visio 2002