'1-Yeni bir proje oluşturun.
'2- Aşağıdaki kodları Formun general Declarations bölümüne yapıştırın
Sub Form_Click ()
Dim veri ' Tanımlama.
Do ' Döngü.
veri = UCase(InputBox("A Ve ya X tuşlarına basınız", "End"))
Select Case veri ' Veri Seçimi.
Case "A": MsgBox "Girişiniz 'A'.",54,”End”
Case "X": End ' Çıkış
Case Else: MsgBox "Geçersiz Giriş,Tekrar Deneyiniz.",48,”End”
End Select ' Seçim Bloğu bitti.
Loop
End Sub ' Procedure sonu
'4- Projenizi Kaydedip Çalıştırın. Form 1 uzerine fare ile çift tıklayın