Macro Help!

[xxcucumberxx]

i have a macro that does what i need it to do but it does it to one number at a time. Is there a way i can update it so i could put a list of numbers have have it do the process to each number? Please help



Sub ZMain()
Dim Text, ret
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("123456789<UP>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("<LEFT>")
SendHostKeys ("t<ENTER>")
ret = WaitForHostUpdate(10)
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("<TAB>")
SendHostKeys ("030116te<ENTER>")
ret = WaitForHostUpdate(10)
SendHostKeys ("<PF1>")
ret = WaitForHostUpdate(10)
SendHostKeys ("b<ENTER>")
ret = WaitForHostUpdate(10)
End Sub






Thank you who helped. The number that i replace is the 123456789 and it does its process but them i need to go in and replace that number with my next one and do it again. i want to put multiple numbers and have it do the steps to each one.