Cara Nembak Cewek dengan Aplikasi Sederhana

mungkin kedengarannya gila tapi work kok, cara nya agan buka notepad terus masukin kalimat ini

Dim Jika
Jika = InputBox ("Kinop, aku sayang bnget sama kamu, aku cinta banget, sejak pertama kali aku kenal sama kinop dan yang pasti aku seneng banget bisa kenal kinop, tapi yang pasti ini aku buat cuman buat buktiin kalau aku itu sayang bnget sama kinop. Sekarang kinop mau gak jadi pacar aku? ketik Y untuk ya or T untuk tidak.., lalu klik OK ya ;) ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya Sayang... Love You Always, Number One For Me... Emmuaccch.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP ^_^"
Else
MsgBox "Kinop belom masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak, ketik jawabannya yah ^_^ "
End If

kemudian save dengan format blahblahbla.vbs katika nge save pilih "all files" ya, sekarang jalankan program dengan klik 2 kali lihat apa yang terjadi ^^------------kalimatnya bisa agan ganti,. kinop ganti dengan nama pacar agan, dan kalimat lainnya ^^