Jika = InputBox ("Sayang selamat tanggal 24 untuk ke 6 kalinya yah ^-^ ,aku sayang km cintakuuu sayang makanya hari ini aku mau nyatain perasaan aku ke kamu sayang dan meneruskan sebuah hubungan yang kita buat selama 6bulan terakhir...aku sayang km aii APA KM MAU JADI PACAR AKU DAN MENEMANI HARI HARI AKU SAMPAI NANTI?? ,ketik 'Y' jika km mau abii jadi pacar km dan terus jagain km dan slalu bimbing km ,tapi jika perasaan km sudah berubah ke aku dan km gamau aku jadi pacar km ketik 'T' lalu tekan Ok...aku butuh jawaban km jujur dari hati sayang ^-^ ")
If UCase(Jika) = "Y" Then
MsgBox "trimakasih km udah mau nerima aku dan percayain aku untuk slalu nemenin km di hari hari km dan jagain km serta bimbing km sayang aku bersyukur dan bahagia bgt :> makasih ya sayang aku janji ga akan ngecewain km ^-^ love u cintakuuu :> ^-^"
MsgBox "aku mau ucapin sesuatu dari jauh lewat program yang aku buat ini aii jadi kamu tekan tombol 'OK' ya ^-^"
speaks="i love u eiko"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

(isi dengan file .wav)


ElseIf UCase(Jika) = "T" Then
MsgBox "ini mungkin pilihan km sayang mungkin perasaan km berubah dan aku emg ga pantes buat km jadi aku harus bs nerima kenyataan ini dan merelakan km meski berat :'> aku sayang km aii "
MsgBox "ini mungkin kata perpisahan dari aku yang sengaja aku buat untuk km :'>"
speaks="good bey eiko"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
Else
MsgBox "km belum pilih jawabannya aii km harus pilih 'Y' untuk terima atau 'T' untuk tidak nerima aku ^-^"
End If