FreeFile Function

Syntax              FreeFile[( )]

Group                File

Description       Return the next unused shared stream number (greater than or equal to 256). Streams 1 through 255 are private to each macro. Streams 256 through 511 are shared by all macros. 

Example            '#Language "WWB-COM"
Sub Main
    Debug.Print FreeFile ' 256
    FN = FreeFile
    Open "XXX" For Output As #FN
    Debug.Print FreeFile ' 257
   'Close #FN
    Debug.Print FreeFile ' 256
EndSub