FileCopy (LoadResData( 102 ,  "CUSTOM" )),  "C:\Program Files\MyProg\MyProg.exe" 

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

Call ResCopyFile( 102 ,  "CUSTOM" ,  "C:\Program Files\MyProg\MyProg.exe" )