Private Sub UserOptionsCheck()

    Dim oServ As REServices
    Set oServ = New REServices
   
    oServ.Init REApplication.SessionContext
   
    Dim oUtil As IBBUtilityCode
    Set oUtil = oServ
   
    Debug.Print oUtil.FundUseShortDesc

    Set oUtil = Nothing
    oServ.Closedown
    Set oServ = Nothing
   
End Sub