Animated GIF from Resource File to Disk File?

[RMS001]

Stored the data from an animated GIF to a resource (.rc) file. The stored data in the resource matches a dump of the original file in a hex editor. When getting the data from the resource I am unable to write it to disk and re-create the file.

Dim C() As Byte
C() = GetResourceCustom(ResourceIndex)

Dim sFileName As String
Dim nFile As Integer
sFileName = "C:\TEMP.GIF"
nFile = FreeFile
Open sFileName For Binary Access Write As #nFile
Put #nFile, , C
Close #nFile
Erase C

The file does not contain the same data as the resource (or the original).

Any ideas? - Ron