Dim d As Object = GetInstance(handle)
Dim r as Object 'Range
r = d.Application.Selection.Range
r.Hyperlinks.Add(Anchor:=r, Address:=text,TextToDisplay:="Google Home Page")
'can pass the value of TextToDisplay as a parameter
d = Nothing
r = Nothing
Hi rashmi123,How to create a duplicate copy of the existing 'Type Text' action