Imports System.IO
 
Public Class Form1
 
    Dim Datenpfad As String = Environment.GetFolderPath( _
      Environment.SpecialFolder.ApplicationData)
    Dim oZahl As Integer = 0
 
    Private Sub butStartzahl_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butStartzahl.Click
        Dim Startzahl As String = InputBox("Geben Sie die Startzahl ein")
        If Not IsNumeric(Startzahl) Then
            MsgBox(Startzahl & " ist keine gültige Zahl!")
            Me.butnächsteZahl.Enabled = False
        Else
            'File.Open(Datenpfad & "\Zahl.txt", FileMode.Create, 
            ' FileAccess.Write)
            Call Speichern(CInt(Startzahl))
            Me.butnächsteZahl.Enabled = True
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If File.Exists(Datenpfad & "\Zahl.txt") Then
            Me.butnächsteZahl.Enabled = True
            Me.lblZahl.Text = File.ReadAllText(Datenpfad & "\Zahl.txt")
            oZahl = CInt(lblZahl.Text)
        Else
            Me.butnächsteZahl.Enabled = False
        End If
    End Sub
 
    Private Sub butnächsteZahl_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butnächsteZahl.Click
        oZahl += 1
        Call Speichern(oZahl)
    End Sub
 
    Private Sub Speichern(ByVal Z As Integer)
 
        File.WriteAllText(Datenpfad & "\Zahl.txt", Z)
        My.Computer.Clipboard.Clear()
        My.Computer.Clipboard.SetText(oZahl)
        MsgBox(oZahl & " wurde in die Zwischenablage eingefügt")
 
    End Sub
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)