Egy kis segítség kellene a VBS scriptben?

Hali!

El kezdtem írni egy "Lopás Gátló"-t és eddig jutottam:

Dim code

Dim pass

pass = "asd"

MsgBox "Add meg a biztonsági jelszót,a fájl futtatásához! ", 64, "Lopás-Gátló"

Do

code = InputBox("Kérjük gépelje be,a vásárláskor kapott biztonsági kódot:", "Entering Code")

If code<>pass Then

MsgBox "A kód: <<>> " & code & " <<>> nem szerepel az adatbázisban. Ha nem tudod a kódot,akkor lépj velem kapcsolatba; *******@gmail.com!", 32, "Invaild Entering Code"

End If

Loop Until code=pass

MsgBox "Köszönjük,hogy megvásárolta a programunkat!"

És ezt kellene úgy megcsinálni,ha az elején a "Mégse" gombra kattint,akkor zárja be a programot,valamint a végére hogy "Köszönjük hogy tötötörötö.." oda kellene egy futtatás parancs,mely jegyzettömböt nyit meg (notepad.exe)