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

---

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