Hyperlink internal VBA function

[Ronio]

According to the VBA help there is supposed to be an internal function called
HYPERLINK. However, whenever I attempt to use it I get an Compile Error:
Function not defined. Any assistance would be great.


Sub RouterModemSearch()

Dim Hlinkstr3 As String
Dim Hlinkstr4 As String
Dim shapesObj As Visio.Shapes
Dim shapeObj As Visio.Shape

Set shapesObj = ActiveDocument.Pages.Item(1).Shapes
Set shapeObj = shapesObj.Item("DataBox1")

Hlinkstr3 = shapeObj.Cells("user.SiteR_name.Value").ResultStr(0)
Hlinkstr4 = "http://hal.corp.com/audit/getmodem.php?cli=" & Hlinkstr3

Hyperlink (Hlinkstr4)
End Sub