Get file size up to a terabyte

Function FileSize(ByVal strFile As String, Optional ByVal ReturnAs As FileSizeView = fsBytes) As Double
 'Purpose: Returns the file size of the file name passed in the format the user specifies
 Dim dblLen As Double, lngIndex As Long
 'If file doesn't exist, abort
 If Dir(strFile) = Empty Then
  FileSize = 0
  Exit Function 'Abort
 End If
 'Returns the file length in bytes
 dblLen = FileLen(strFile)
 'Calculate to the file size view passed
 For lngIndex = 0 To ReturnAs
  dblLen = dblLen / 1024
 Next
 'Return the file size
 FileSize = dblLen
End Function