Waiting for file, check filesize then process... Help please

[Chrispybee]

I've written this little prog that will check for a file.
If a file is found then will check the file size then pause, check the file size again and compaire the two. If the file size is same then process file else wait .

If anyone can help, would be great.

Dim FSO As New FileSystemObject 'set fso as new file system object
    Dim Filen As File               'This is a file
    Dim FileLena, FileLenb As Long
If File1.ListCount = 0 Then
    FileName = File1.FileName
    
Do Until FileLena = FileLenb
    Set Filen = FSO.GetFile(FileName)  'Set fullstring as full filename and pick the file
    FileLena = Filen.Size           'Get file size
    Text1.Text = Filen.Size         'display the filesize in text box 1
    Wait 1                          'wait 1 seconds
    FileLenb = Filen.Size           'Get file size
    Text2.Text = Filen.Size         'display the filesize in text box 2
    Wait 1
Loop