Dim Jika
Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")
If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"
ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"
Else
MsgBox " isikan kata-kata yang jika cowok/cewek yang Anda sukai tidak menyatakan persetujuan/penolakan "
End If

Dim Jika
Jika = InputBox ("Fulanah aku sayang bnget sama kamu, yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu kamu mau nggak jadi pacar q ??  ketik Y (untuk ya) or T (untuk tidak), lalu klik ok ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "I Love You sayank, mmwah ~^_^~"
ElseIf UCase(Jika) = "T" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak "
End If