Inputbox problem

[Rolf Rosenquist]

From an inputbox the user can write a new price. The box has two buttons, Ok
and Cancel. But if he hits the Cancel nothing happens. The inputbox is still
there and the sub won't exit. My code is

GetPrice:
Price = InputBox("New price:", "Pricelist")
If Price = vbCancel Then
Exit Sub
End If
If Not IsNumeric(Price) Then
GoTo GetPrice
End If

Anyone know how to detect the Cancel button?
/ Rolf

 

[Guest]

Try this
GetPrice:
Price = InputBox("New price:", "Pricelist")
If Price = "" Then
Exit Sub
End If
If Not IsNumeric(Price) Then
GoTo GetPrice
End If

 

[Rolf Rosenquist]

That seems to work! Many thanks for your tip.
/ Rolf