Динамическая замена ресурсов у EXE - файлов - VB

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

Как в VB 6 заменить какой-либо ресурс у exe-шника? Если бы ресурс был представлен текстовой строкой, я бы сделал это с помощью комбинации API BeginUpdateResource UpdateResource EndUpdateResource то есть ничего сложного... Но в моём случае ресурс, которым нужно заменить др. ресурс, программно представлен байтовым массивом.

Решение задачи: «Динамическая замена ресурсов у EXE - файлов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
 
Private Function CurToStr(c() As Currency) As String
    CurToStr = Space((UBound(c) + 1) * 8)
    lstrcpy ByVal CurToStr, c(0)
End Function
Private Sub Form_Load()
    Dim c(4) As Currency
    c(0) = 505330585107804.5903@
    c(1) = 759402038203733.9237@
    c(2) = -388206614629636.8018@
    c(3) = 460293819178004.7584@
    Debug.Print CurToStr(c())
End Sub