Imports System.IO
 
Module Module1
 
    Sub Main()
        Dim Datei As String = "d:\##\number.txt"
 
        Dim NextNumber As Integer
        NextNumber = GetNextNumber(Datei)
        Console.WriteLine(NextNumber.ToString)
        Console.ReadLine()
 
    End Sub
 
 
    Private Function GetNextNumber(ByVal strFilePath As String) As Integer
        Dim Zahl As Integer
 
        Dim BR As New BinaryReader(File.Open(strFilePath, FileMode.Open, _
          FileAccess.Read, FileShare.Read))
        Zahl = BR.ReadInt32()
        BR.Close()
 
        Dim BW As New BinaryWriter(File.Open(strFilePath, FileMode.Open, _
          FileAccess.Write, FileShare.Write))
        BW.Write(Zahl + 1)
        BW.Close()
        GetNextNumber = Zahl + 1
 
    End Function
End Module