Error handling on input box

[spurs]

I am trying to create an input box (or something like it)
InputBox has 2 buttons ok and cancel. I don't need the cancel but someone could press it.

I have an error handler in case the numerical value entered is out of range.
d is an initial value

In my code below if cancel is pressed during input it seems that false is not returned as i get the Mesage Box "Error- The selected " & dy & " mm diameter is not in range." returned instead

How can I fix this?

Sub Test
On Error GoTo errHandler
dy = InputBox("Enter a Diameter of Interest", "Parameters", d)


errHandler:
If dy = "False" Then Exit Sub

MsgBox "Error- The selected " & dy & " mm diameter is not in range.", vbOKOnly
Exit Sub
Resume

Exit Sub

 

[rpaulson]

try this

Sub Test()
d = 10 'sets the dafualt value
dy = Application.InputBox("Enter a Diameter of Interest", Default:=d, Type:=1) 'type 1 means must be numberic
If dy = "False" Then Exit Sub

'.....
End Sub

 

[spurs]

try this

Sub Test()
d = 10 'sets the dafualt value
dy = Application.InputBox("Enter a Diameter of Interest", Default:=d, Type:=1) 'type 1 means must be numberic
If dy = "False" Then Exit Sub

'.....
End Sub

Thank you for your help