Sub xp()
Dim http As Object
Dim st As String
Set http = CreateObject("MSXML2.XMLHTTP")
st = "Site=SBA_Modeler_V22&Data={'input_BirthDate':'1983-01-04','input_HireDate':'2012-10-01','input_Gender':'F','input_AnnualPlanComp':36179.33,'input_EmployeeClass':'Regular School District','input_AnnualPayGrowth':1,'input_MarketPerformance':'Average','input_PVD':38,'input_NRA':63,'input_MBAA':66,'input_Custom_BCD':35,'input_Custom_TermAge':90,'input_RemainingElections':1,'input_Pre2011ServiceYears':0,'input_ProjectedServiceYears':6.33,'input_ProjectedBenefitAmount':0,'input_DROP_LumpSum':4461.18,'input_ProjBuyBackABO':0,'input_DateABO':2018-01-31,'input_ProjectedABO':4461.18,'input_ProjectedAAL':0,'input_DateAAL':1900-01-01,'input_InvestmentBalanceTBA':0,'input_CurrentABO':3340.03}"
http.Open "POST", "https://beqlb02.poolt.hewitt.com/dsi0042/calculator", False
http.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
http.send (st)
MsgBox (http.responsetext)
Set JSON = ParseJson("[" + http.responsetext + "]")
i = 1
For Each Item In JSON
Sheets(4).Cells(3, 2).Value = JSON(1).Item("output_Range_Age1")
Sheets(4).Cells(3, 3).Value = JSON(1).Item("output_Range_Age2")
Sheets(4).Cells(3, 4).Value = JSON(1).Item("output_Range_Age3")
Sheets(4).Cells(3, 5).Value = JSON(1).Item("output_Range_Age4")
Sheets(4).Cells(3, 6).Value = JSON(1).Item("output_Range_Age5")
Sheets(4).Cells(2, 7).Value = JSON(1).Item("output_Range_Custom")
Sheets(4).Cells(3, 8).Value = JSON(1).Item("output_Balance_Age1")
Sheets(4).Cells(3, 9).Value = JSON(1).Item("output_Balance_Age2")
Sheets(4).Cells(3, 10).Value = JSON(1).Item("output_Balance_Age3")
Sheets(4).Cells(3, 11).Value = JSON(1).Item("output_Balance_Age4")
Sheets(4).Cells(3, 12).Value = JSON(1).Item("output_Balance_Age5")
Sheets(4).Cells(3, 13).Value = JSON(1).Item("output_Balance_Custom")
Sheets(4).Cells(3, 14).Value = JSON(1).Item("output_Balance_LumpSum")
Sheets(4).Cells(2, 16).Value = JSON(1).Item("output_CurrentAge")
Sheets(4).Cells(3, 17).Value = JSON(1).Item("output_MinAgeTerm")
Sheets(4).Cells(3, 18).Value = JSON(1).Item("output_MaxAgeTerm")
Sheets(4).Cells(3, 19).Value = JSON(1).Item("output_MinAgeBCD")
Sheets(4).Cells(3, 20).Value = JSON(1).Item("output_MaxAgeBCD")
Sheets(4).Cells(3, 22).Value = JSON(1).Item("output_DROP_Question")
Sheets(4).Cells(3, 23).Value = JSON(1).Item("output_DROP_Years")
Sheets(4).Cells(3, 24).Value = JSON(1).Item("output_DROP_Start")
Sheets(4).Cells(3, 25).Value = JSON(1).Item("output_DROP_1stYear")
Sheets(4).Cells(3, 26).Value = JSON(1).Item("output_DROP_Acumulation")
Sheets(4).Cells(3, 27).Value = JSON(1).Item("output_DROP_AccumulationAnnuity")
Sheets(4).Cells(3, 28).Value = JSON(1).Item("output_DROP_TotalAnnuity")
Sheets(4).Cells(3, 29).Value = JSON(1).Item("output_DROP_COLA")
Sheets(4).Cells(3, 31).Value = JSON(1).Item("output_BuyBack_Payment")
Sheets(4).Cells(3, 32).Value = JSON(1).Item("output_BuyBack_IP_AddOn")
Sheets(4).Cells(3, 33).Value = JSON(1).Item("output_DROP_BuyBack_TotalAnnuity")
i = i + 1
Next
MsgBox ("complete")
End Sub