Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
  "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
  ByVal lpKeyName As String, ByVal nDefault As Long, _
  ByVal lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
  "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long

Private Function GetZaehler() As Long
  Dim myIniFile As String
 
  myIniFile = App.Path & "myApp.ini"
  GetZaehler = GetPrivateProfileInt("Zaehler","Uebertragungsnr", 0, myIniFile)
End Function
 
Private Sub SaveZaehler(ByVal Zaehler As Long)
  Dim myIniFile As String
 
  myIniFile = App.Path & "myApp.ini"
  WritePrivateProfileString "Zaehler", "Uebertragungsnr", CStr(Zaehler), _
    myIniFile
End Sub

Private Sub Form_Load()
  Dim Zaehler As Long
 
  Zaehler = GetZaehler() + 1
  SaveZaehler Zaehler
End Sub