Alternative to using .SetSelection

[Saket]

an alternative of SetSelection could be using 'SendKeys'
try this

Code:

'Set Focus on edit box
VbWindow(" ").VbEdit(" ").Click
'Create Wscript.shell object
Set WshShell = CreateObject("WScript.Shell")
'Select the text already there in edit box sending
WshShell.SendKeys "+{HOME}"
'set the rrequired text in edit box using either of these two statements
WshShell.SendKeys "Your Text"
'Or
'VbWindow(" ").VbEdit(" ").Set "Your Text"