Set MyObject = CreateObject("RL.RLClass")
call MyObject.RLVersion(1,y)
msgbox(y)