Recibe mis cordiales saludos, lo primero que debes hacer es revisar tu código, y minimizar tus lineas de programación usando métodos de programación más sencillos que agilicen tu programación. Por ejemplo: 1. De sea Saber la asignación Familiar de una persona: Dim EstadoCivil as string Dim Asig as double EstadoCivil=Combobox1 if EstadoCivil="Casado" then Asig=100 elseif EstadoCivil="Soltero" then Asig=0.00 end if Textbox1.text=Asig Otra Forma mas rapida se agilizar el codigo, es usando estructuras Select Case. Dim EstadoCivil as string Dim Asig as double EstadoCivil=Combobox1 select case EstadoCivil Case "Casado" Asig=100 Case "Soltero" Asig=0.00 end select Textbox1.text=Asig Si te das cuenta, tienes que encontrar la manera de utilizar estructuras de programación que agilice tu programación, de esa manera reducirás, el tamaño de tu archivo de macros.