Problemas con mi aplicación

[aaronduran2]

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:

Código (vb) [Seleccionar] Expandir


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.

[naderST]

Prueba declarando la variable As Byte es decir asi: Dim Cancion() As Byte y luego la redimencionas con ReDim mmm no se si serviria pero puedes probar 

[aaronduran2]

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

Saludos.