Put InputBox in a Do Loop : Do While « Language Basics « VBA / Excel / Access / Word

Put InputBox in a Do Loop

 
Sub ifTest7()
    Dim strMessage As String
    Dim intTest As Integer

    intTest = 1

    Do
        intNum = 4

        If intNum >= 1 And intNum <= 15 Then
            msgBox "the number is between 1 and 15"
            intTest = 2
        Else
            msgBox "Sorry, the number must be between 1 and 15"
            intTest = 3
        End If
    Loop While intTest = 1

End Sub

Related examples in the same category

1.	Do Loop While
2.	Use Integer variable as the loop control variable
3.	Do while loop
4.	Using the Do...While Loop
5.	Using the Do...While Loop with a Condition at the Bottom of the Loop
6.	Use if statement in a do loop
7.	A counting variable I is initialized just prior to the loop and incremented inside the loop
8.	To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop
9.	Execute the code block until the conditional statement is True.