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