Dim intReadChan As Integer
Dim lngFileSize as Long
intReadChan = FreeFile' Get first open file number (i.e., free channel)
Open PassedFilename For Input As intReadChan' Can now refer to input file by this
intFileSize = LOF(intReadChan)' Gives us our filesize