Code:
Dim kacka() As Byte
kacka = LoadResData(101, "CUSTOM")
Open File For Binary As #1
Put #1, , kacka
Close #1