como hago para que un contador cuando yo cierre la aplicacion no se borren los datos quiero que cuando lo cierre y abra queden los numeros contados lo que pasa es que lo tengo en un aplicacion que me esta contando la cantidad de veces que pulso y cuando lo cierro y lo vuelvo a abrir se me borra

Puedes hacer esto

Option Explicit
Dim sNombreAplicacion As String, sSeccion As String, sDato As String, sClave As String
Dim Contador As Integer
 
Private Sub CmdGuardarDatos_Click()
    'llamando a la rutina guardar datos... :P
    GuardarDatos (Contador)
End Sub
 
Private Sub CmdLeerDatos_Click()
    sDato = GetSetting(sNombreAplicacion, sSeccion, sClave)
    If sDato <> "" Then MsgBox "Contador almacenado: " & sDato
End Sub
 
Private Sub GuardarDatos(Dato As String)
     SaveSetting sNombreAplicacion, sSeccion, sClave, Dato
End Sub
 
Private Sub Form_Load()
    'En ese sentido
    sNombreAplicacion = App.EXEName
    sSeccion = "Lo que sea"
    sClave = "Contador"
 
    'provisional
    Contador = 6
End Sub