Dynamic HypGetAncestor

All,

Really new to smartview and would like to create a VBA that reads a cell in the spreadsheet and returns the ancestor for it. Below is my code. When I execute I get the -15 return value (so I know that there is something wrong). I am struggling to understand how do I tell it to look at cell A3.

Any help is appreciated. I know if I change the value in the msgbox to a true measure then my code works

Declare Function HypGetAncestor Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal vtLayerType As Variant, ByVal intLayerNumber As Integer, ByRef vtAncestor As Variant) As Long