Private Sub Report_Load()
Dim Message, Title, Default, MyValue
Message = "bir sayı giriniz" ' Set prompt.
Title = "Sayı gir" ' Set title.
Default = "1" ' Set default.
10
MyValue = InputBox(Message, Title, Default)
If Not IsNumeric(MyValue) Or Len(MyValue & "") = 0 Then GoTo 10
Me.txtSon = Me.txtVeri / MyValue
End Sub
peki 0 yada sayısal olmayan bir değerse ne yapılacak input ekranına geri mi dönülecek yoksa varsayılan bir değer mi atanacak