Reflections Inputbox

[Robertson1995]

I am using VBA in a program call Reflections WRQ. This is a program I use to telnet into a piece of equipment at work.

In the example code below the site command is entered using an Inputbox, but I need a way to be able to enter the site # only once instead of having an Inputbox pop up every time. The site # never changes. Does anyone know of a way to do this?



Sub test ()

site = Inputbox("enter site #")

session.transmit "site" & chr$(rcCR)
session.transmit "111" & chr$(rcCR)
session.transmit "site" & chr$(rcCR)

end sub

 

[GoRichard]

You may have figured this out, but just in case some one else need the information:

try placing the line with the input box outside of the sub routine

---------------------------------------------------
site = Inputbox("enter site #")

Sub test ()

session.transmit "site" & chr$(rcCR)
session.transmit "111" & chr$(rcCR)
session.transmit "site" & chr$(rcCR)

end sub
---------------------------------------------------