allora puoi fare in diversi modi se vuoi che si resetti ogni volta che lanci l'applicazione ti basta una variabile static in un modulo

static conta as long

form_load()
conta = conta + 1
end sub

se invece deve rimanere puoi inserirlo in un file esterno

codice:
Option Explicit
Dim conta As Integer
Private Sub Form_Load()
   Dim numfile As Integer
   numfile = FreeFile
   Open "c:\Data.bin" For Binary As #numfile
      Get #numfile, , conta
   Close #numfile
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Dim numfile As Integer
   numfile = FreeFile
   Open "c:\Data.bin" For Binary As #numfile
      Put #numfile, , conta + 1
   Close #numfile
End Sub