Private Sub Command1_Click()
    Dim BerichtNr As Integer
 
    Open "nummer.txt" For Input As #1
    Input #1, BerichtNr
    Close #1
 
    BerichtNr = BerichtNr + 1
 
    Open "nummer.txt" For Output As #1
    Print #1, BerichtNr
    Close #1
End Sub

Private Sub Command1_Click()
    Dim BerichtNr As Integer
 
    BerichtNr = GetSetting("meinProg", "Bericht", "Nummer", "0")
 
    BerichtNr = BerichtNr + 1
 
    SaveSetting "meinProg", "Bericht", "Nummer", BerichtNr
End Sub