Hola. Estoy creando un programa que permite convertir un archivo MP3 a EXE. El conversor lee en formato binario la canción y la añade al reproductor (algo parecido a un stub).
El problema es que cuando se abre el reproductor no reproduce la canción. Hago todo correctamente, ya que el archivo MP3 lo extrae en la carpeta correspondiente, pero lo que falla es el tamaño del archivo. En el evento Form_Load puse:

Dim Cancion As String * 65000
Dim Secuencia As String * 5
RutaTemporal = Environ("TEMP")
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Get #1, LOF(1) - 34, Cancion
Get #1, , Secuencia
Close #1
Open RutaTemporal & "\mp3file.mp3" For Binary Access Write As #2
Put #2, 1, Cancion
Close #2
 

Pero la canción ocupa más, y el problema es que no puedo aumentar todavía más el tamaño de la variable.

¿Alguna solución?

Gracias de antemano.

En un troyano que hice hace tiempo utilizé lo de declararlo como Byte, tomé el ejemplo de ahí pero sigue sin funcionar.

Saludos.