VB.Net/File Directory/FreeFile

Get an available file number

Imports System
Imports System.Collections.ObjectModel
Imports System.IO
Public Class MainClass
   Shared Sub Main()
        " Get an available file number.
        Dim file_num As Integer = FreeFile()
        Console.WriteLine( file_num )
   End Sub 
End Class