Variables en Sub con permanencia

Hacer que una variable local no se destuya al finalizar el sub
Static Dim Contador As Int16=0 'Permite declarar Contador a nivel de procedimiento y que no se destruya al ejecutar el End Sub