jo so gehts:

Dim b() As Byte
b = LoadResData(101, "CUSTOM")
Open "C:\Programme\Name.exe" For Binary As #1
Put #1, , b()
Close #1



ThX

#greetZ