Помогите выгрузить файл ресурсов (exe)! - VB

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

у меня в файле ресурсов есть exe программа, не получается ее выгрузить на диск! Помоите!
пишу:

Ругается:

Решение задачи: «Помогите выгрузить файл ресурсов (exe)!»

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

                            <br>Public Sub ResCopyFile(DataI <font color="blue">As</font> Integer, DataName <font color="blue">As</font> String, FileName <font color="blue">As</font> String)
<br>    
<br>    Dim myArray() <font color="blue">As</font> Byte
<br>    Dim myFile <font color="blue">As</font> Long
<br>    <font color="blue">If</font> Dir(FileName) = "" Then
<br>        myArray = LoadResData(DataI, DataName)
<br>        myFile = FreeFile
<br>        <font color="blue">Open</font> FileName <font color="blue">For</font> Binary Access Write <font color="blue">As</font> #myFile
<br>        Put #myFile, , myArray
<br>        Close #myFile
<br>    <font color="blue">End</font> <font color="blue">If</font>
<br><font color="blue">End</font> Sub
<br>
                        