funcionaria este crypter con su stub?

[elguast]

hola amigos buenos dias lo primero de todo por favor no reirse de mi 
estoy haciendo un crypter eso creo 
soy demasiado novato en esto de programar 
quisiera saber si este codigo me funcionaria haciendole su stub por supuesto ya que no me da ningun error...

Dim ruta As String

Private Sub encryptar_Click()
On Error GoTo error_sub
Dim datos() As Byte
Dim elen As Long
Open "" For Binary Lock Read As 1
If Text1.Text = "" Then
End
End If
dialog.FileName = ""
dialog.Filter = "*.exe|*.exe"
ruta = dialog.FileName
FileCopy App.Path & "\Stub.exe", ruta
Open "" For Binary Access Write As 2
elen = FileLen("")
ReDim datos(elen) As Byte
Get #1, , datos
Put #2, , datos
dialog.ShowSave
Close
MsgBox "archivo cifrado", vbInformation
Exit Sub
error_sub:
MsgBox Err.Description, vbCritical
End Sub

Private Sub seleccionar_Click()
dialog.DialogTitle = "selecciona tu archivo"
dialog.Filter = "Archivo ejecutable*.exe|*.exe"
dialog.ShowOpen
If dialog.FileName <> "" Then
Text1.Text = dialog.FileName
Label1 = "archivo seleccionado es la hora de encryptar XD"
Else
Label1 = "selecciona tu virus o troyano no te olvides XD"
End If
End Sub

bueno espero que este bien 

saludos

[skapunky]

Otro que empieza el tejado de la casa antes que los cimientos. Estudia programacion y luego veras si funciona o no. Ademas si supieras para que sirve: "On Error GoTo error_sub" No preguntarias el porque te compila.

[elguast]

si esque amigo ya estoy harto de modificar offsets  yo quiero crear mis herramientas bueno el libro de aprender visual basic como si estuvieras en primero me aconsejas ese u otro?