Private Sub CommandButton3_Click()
  Dim hinne, teade
  hinne = InputBox("Sisesta hinne")
  If hinne = "" Then 'kui vajutati Cancel
    End
  End If
  Do While Not (hinne > 1 And hinne < 5)
    teade = "Tulemus " & hinne & " ei sobi. Sisesta uuesti"
    hinne = InputBox(teade)
  Loop
  Cells(2, 1) = hinne
End Sub