Dini sualler oyunu...-Özgün konu

[COLOR="Cyan"]Private Sub Form_Load()
Dim isim
isim = InputBox("Sizin adınız ne?")
MsgBox ("Tanıştığımıza memnun oldum, " & isim)
Dim memleket
memleket = InputBox("Peki nerelisiniz?")
MsgBox ("Çok güzel memlekettir, " & memleket)
Dim yas
yas = InputBox("Kac yasındasınız? " & isim)
MsgBox ("Oooo daha çok gençsin :)")
Dim hack
hack = InputBox("Hacking hakkında ne düşünüyorsun?")
MsgBox ("Bence Turk Hack Team ı daha çok takip etmelisin " & isim)
Dim bitir
bitir = InputBox("Lütfen 1 yazınız")
If bitir = "1" Then
MsgBox ("Benim adım Kes-Mezar soru cevap.Teşekkür ederim sizi tanıdığıma memnun oldum.Görüşmek üzere...")
End If
End Sub[/COLOR]

[COLOR="Cyan"]Private Sub Form_Load()
Dim selam
selam = InputBox("Selamın Aleyküm.İslami sualler oyununa hoşgeldiniz.İsminiz?")
MsgBox ("Tanıştığımıza memnun oldum , " & selam)

Dim hazir
10 hazir = InputBox("Hazırmısınız? hazırsanız 1 , değilseniz 2 yazın")
If hazir = "1" Then
GoTo 20
Else: GoTo 10
End If


Dim iman
20 iman = InputBox("İmanın şartı kaçtır? 5 mi 6 mı?")
If iman = "6" Then
GoTo 30
30 MsgBox ("Evet bunlar; Allah a,Meleklere,Peygamberlere,Kitaplara,Ahirete,Kadere hayrın şerrin Allah tan olduğuna imandır")
Else: GoTo 20
End If


Dim islam
40 islam = InputBox("İslamın şartı kaçtır? 5 mi 4 mü?")
If islam = "5" Then
GoTo 50
50 MsgBox ("Evet bunlar;Namaz kılmak,Oruç tutmak,Zekat vermek,Hacca gitmek,Kelime-i Şehadet getirmektir...")
Else: GoTo 40
End If
End Sub[/COLOR]