Just get the data as a byte blob with "LoadResData("SEASON1", "EP" & a)"
Then dump it with file mode in binary
Code:
' Untested air code
Dim btData() As Byte
Dim fID As Integer

btData = LoadResData("SEASON1", "EP" & a)
fID = FreeFile
Open "C:\Temp\YourFile.flv" For Binary As #fID
Put #fID,,btData
Close #fID