CST - The VBA results are not as the same as the GUI values in CST

Hello,

Here is my S11 phase value which was plot on the CST Studio Suite  .

As you can see the phase of S11@ freq=9.65Ghz is -157.2703. However, I have written this code to obtain the S11 phase, but the result are not the exactly the same.

 

Private sub Coupling(ByVal ID As Byte,ByVal Freq As Decimal)


Dim S11,S21,S31,S41 As Object
Dim S11Phase,S21Phase,S31Phase,S41Phase As Object
Dim S11PhaseValue,S21PhaseValue,S31PhaseValue,S41PhaseValue As Decimal

Dim S11File As String

Freq=9.65

S11File=Resulttree.GetFileFromTreeItem("1D Results\\S-Parameters\\S1,1")

Set S11   = Result1DComplex(S11File)
Set S11Phase = S11.Phase
S11PhaseValue=S11Phase.GetY(S11Phase.GetClosestIndexFromX(Freq))

MsgBox(Str(S11PhaseValue))

End sub

But here the S11@ freq=9.65Ghz is -157.8366047.

How can I correct this error? and make the results the same