Как получить размер файла ? - VB

Формулировка задачи:

Всем привет, пишу программу и мне нужно чтобы в text1.text вписывались значения размера файла, и каждое в новой строчке. Но как получить размер файла я не знаю.. Помогите ! Заранее спасибо)

Решение задачи: «Как получить размер файла ?»

textual
                            Листинг программы 
                        

                            Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * 255
    cAlternate As String * 14
End Type
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileW" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
Public Function FileSizeEx(FileName As String) As Double
    Dim WD As WIN32_FIND_DATA, R As Long
    R = FindFirstFile(StrConv(FileName, vbUnicode), WD)
    If R = -1 Then Err.Raise 53: Exit Function
    FindClose R
    FileSizeEx = CDbl(WD.nFileSizeHigh) * 4294967296# + _
            IIf(WD.nFileSizeLow < 0, 4294967296# + WD.nFileSizeLow, WD.nFileSizeLow)
End Function
                        