Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Combine InputBox and Do Loop to read user input

Sub GetValue3()     MinVal = 1     MaxVal = 12     Msg = "Enter a value between 1 and 12"     ValidEntry = False     Do         UserEntry = InputBox(Msg)         If IsNumeric(UserEntry) Then             If UserEntry >= 1 And UserEntry <= 12 Then                 ValidEntry = True             Else                 Msg = "Your previous entry was INVALID. Enter a value between 1 and 12"             End If         End If         If UserEntry = "" Then Exit Sub     Loop Until ValidEntry     ActiveSheet.Range("A1").Value = Val(UserEntry) End Sub