vb is not my native language but...
with this template: patch -->you should have found it yourself!
for the rest,try to make an effort yourself please and read your vb doc's....
just a question:have you cracked all versions yourself?
Sub Main()
On Error GoTo Error
If FileLen(App.Path & "\Prog.exe"

= 0 Then GoTo Error
Open App.Path & "\Prog.exe" For Binary Access Write As #1
Put #1, octet, bite
Close #1
MsgBox "Ok", vbApplicationModal, "OK"
GoTo TheEnd
Error:
On Error Resume Next
Close #1
MsgBox "not able to patch", vbExclamation, "error"
TheEnd:
End Sub