hello i'm a newbie and i have a problem with inputbox

[bovaro]

Hello i have this macro
Sess0.Screen.Sendkeys("ghec<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Down><Down><Down>x<Tab><Down><Down><Down><Down><Down><Down><Down><Down><Tab>")
Sess0.Screen.UserResponse=InputBox("<number>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

System.TimeoutValue = OldSystemTimeout
End Sub


so the dialog box appear i write a number but the macro after the input responde
NO SUCH PROPETY OR METHOD what i need to put after ("<number>")???
tks to all

 

[remy988]

see if this snippet from the help file helps you

Sub main
   Dim filename
   Dim msgtext
   msgtext="Enter a filename:"
   filename=InputBox$(msgtext)
   MsgBox "The file name you entered is: " & filename
End Sub