Не проигрывается файл из ресурсов - VB

Формулировка задачи:

У меня возникла еще одна проблема, по теме, но частично! Как проигрывать аудифайл я понял и тд. Теперь возник еще один вопрос связанный с извлечением этой самой музыки из файла ресурсов. Для этого я использую код:

                    Листинг программы
                
 
                        
                          
                    
Dim barr() As Byte
stra = LoadResData(101, "CUSTOM")
Dim f As Integer
f = FreeFile
Open App.Path & "\" & "1.mp3" For Binary As #f
Put #f, , stra
Close #f

Но почему-то старый файл который находится в файле ресурсов воспроизводится а новый файл которым я хочу его заменить -

НЕТ

! В чем может быть дело? Даже никакие проигрыватели не воспроизводят файл извлеченный из файла ресусрсов таким способом!

Решение задачи: «Не проигрывается файл из ресурсов»

textual
                            Листинг программы 
                        
Dim stra() As Byte