SizeFile

Dim nFileNum As Integer
Dim lFileSize As Long
'Get a new file number

nFileNum = FreeFile
'Open the file

Open "C:\SOMEFILE.TXT" For Input As nFileNum
'Get the Length

lFileSize = LOF(nFileNum)
'Close the file

Close nFileNum
' If you don't have the file open you can use the FileLen function.

Dim lFileSize As Long
lFileSize = FileLen("C:\SOMEFILE.TXT")