code:Dim File() As Byte File() = LoadResData(101, "CUSTOM") Open "Location of File" For Binary Access Write as #1 Put #1, , File() Close #1