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.txtogrt = Me.txtder / MyValue
https://resimyukle.org/i/xpZOF
https://resimyukle.org/i/xpcsZ