Using Do and For Loops to get an integer value from a user

Hello,

This is my first post and I appreciate any tips that can be offered to me on the following problem I am trying to solve. I am learning VBA in a college course and have a homework problem I am having difficulty figuring out (I am brand new to VBA).

Here is the setup:

Write a sub that asks a user via inputbox for an integer value between 1 and 5. This should be embedded within a Do loop so that the user keeps getting asked to input a number until they input an integer between 1 and 5. Use a For Loop for error checking.

This is not the exact problem I am tasked with completing, but it is similar and will help me to learn the particular coding techniques I need to know to complete the problem.

Thank you again for any help.

Regards.

Hello learning_vba,

Welcome to the Forum!

As a general rule, we do not provide answers to homework questions. The reason is obvious. In this case I will make an exception because your assignment doesn't have anything to do with looping structures but with validation and conditional transfer of execution.

This macro will transfer control back to the line label "GetInput" based a series of validation tests. If any validation step fails, execution returns back to this line to ask the user to input a value again. An error dialog will be displayed alerting the user to the mistake.

Sub InputTest()

  Dim Answer As Variant
   
GetInput:
    Answer = InputBox("Enter a number from 1 to 5.")

   'Did user click Cancel?
    If Answer = "" Then
      Exit Sub
    End If
    
   'Is input a number?
    If Not IsNumeric(Answer) Then
      MsgBox "Please enter a number from 1 to 5."
      GoTo GetInput
    End If

   'Convert Answer from a string to an Integer
    Answer = CInt(Answer)

   'Is number 1 to 5?
    If Answer < 1 Or Answer > 5 Then
      MsgBox "Please enter a number from 1 to 5."
      GoTo GetInput
    End If

End Sub