Calculate File Size

Imports System.IO

Private Function GetFileSize(ByVal MyFilePath As String) As Long

Dim MyFile As New FileInfo(MyFilePath)
Dim FileSize As Long = MyFile.Length
Return FileSize

End Function