Dim hModule As Long
 Dim hResource As Long
 Dim hResData As Long
 Dim nResSize As Long
 Dim bBuffer() As Byte
 Dim nFile As Long
 
 'Загрузка ресурса
 hModule = GetModuleHandle(...)
 hResource = FindResource(hModule, ...)
 hResData = LoadResource(hModule, hResource)

 'Копирование содержимого ресурса в динамический байтовый массив
 nResSize = SizeofResource(hModule, hResource)
 ReDim bBuffer( 0  To nResSize -  1 ) As Byte
 CopyMemory bBuffer( 0 ), ByVal LockResource(hResData), nResSize
 
 'Сохраниение динамического байтового массива в двоичный файл
 nFile = FreeFile
 Open "Resource.bin" For Output As #nFile
 Close #nFile 'создался файл нулевой длины - надо, ибо Open For Binary размер не обрезает
 Open "Resource.bin" For Binary Access Write Lock Write As #nFile
 Put #nFile, , bBuffer
 Close #nFile