计算两个对象的值的差异

我有两个对象，我想计算每个值的差异。

现在的代码是：

Function CALBETA(CodeOne As String, CodeTwo As String) As Double Dim onedata As Object Dim Twodata As Object Set onedata = ConnectToBloombergTwo(CodeOne) Set Twodata = ConnectToBloombergTwo(CodeTwo) End Function 

他们基于另一个function：

 Public Function ConnectToBloombergOne(Code As String) As Object Dim sUrl As String Dim rawJson As Dictionary Dim dataRequest As WinHttp.WinHttpRequest Dim Json As Object Dim FetchedData As String sUrl = "http://www.bloomberg.com/markets/api/bulk-time-series/price/" & Code & "?timeFrame=3_YEAR" Set dataRequest = New WinHttp.WinHttpRequest With dataRequest .Open "GET", sUrl, True .Send .WaitForResponse FetchedData = .ResponseText End With FetchedData = Right(FetchedData, Len(FetchedData) - 1) FetchedData = Left(FetchedData, Len(FetchedData) - 1) Set Json = JsonConverter.ParseJson(FetchedData) Set ConnectToBloombergOne = Json.Item("price") End Function 

所以，这个想法是比较来自彭博的两个不同的股票。 因此，我需要能够计算股票价格的差异。

我怎样才能做到这一点？