Public Function FileFinder(WatchingDir As String)
Dim filename As String
FileFinder = Dir(WatchingDir)
Do Until FileFinder = ""
filename = FileFinder
If filename <> "" Then
Text1.Text = "Processing " & filename
MoveDir (filename)
End If
FileFinder = Dir
Loop

End Function

When I run the above code I get this error:

Run-Time error '5'
Invalid procededure call or argument

on this line

FileFinder = Dir

Any suggestions??