how to parameterize links in a web page?

'******************************************************************************
Dim lnk_array
lnk_array=array("link1","link2","link3","Link4")

For i= 0 to ubound(lnk_array)
  Browser("Google").Page("Google").Frame("body").Link("Link_1").SetTOProperty "text",lnk_array(i)
  Browser("Google").Page("Google").Frame("body").Link("Link_1").Click
Next
'******************************************************************************