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