For Counter = 1 to 5strValue = InputBox("What value?", "Input Box")Next CounterYou could even have the 5 be a value which is collected by an input box.