Синтаксис функции

Есть функция

FUNCTION Move_File(source, Destination) 
Set fso = CreateObject("Scripting.FileSystemObject")
StrName = Dir(source, vbNormal)
DO WHILE StrName <> ""
    fso.MoveFile "c:\send\out\" & StrName, Destination
    StrName = Dir
LOOP
END FUNCTION

использую я её по выходу из формы. В таком виде:

Move_File("c:\send\out\*.1ls", "c:\send\out\" & MakeDirectory & "\") 

но этой строки выдает ошибку: Extended:=
я так поминмаю, что нужно оперелить тип даных функции. Но какой тип, если она только переносит файлы.

http://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 15 - не то?

Владимир Саныч, именно то. Спасибо что тыцнули мне в нужное место.