Private Sub CommandButton2_Click()
  Dim hinne
  Do
    hinne = InputBox("Sisesta hinne")
  Loop Until hinne > 1 And hinne <= 5
  Cells(2, 1) = hinne
End Sub