CST DS用VBA定义隔离器

最近看一篇论文，在DS工作室用VB控件模块代替理想隔离器。
具体做法是将Miscellaneous中的VB模块放入视图桌面（一定要在naviation tree先右击VBA1，在properties对话框将其设为2 ports，并且勾选 show parameters table inside drawing，否则就显示不了）。
然后可以对该模块进行edit，根据其源代码编辑其S参数。对于理想隔离器，其S矩阵
{S11 S12; S21 S22 } 应为{0 0；1 0}
但我不大懂VB，不知道怎样改写该程序代码得到我想的S参数矩阵
烦请高手帮忙指点指点，谢谢！

经过这几天不断试验，问题解决了！代码共享！
Function OnS(f As Double, i As Integer, j As Integer) As Variant
    'Insert code here
    'First parameter is current frequency in Hz
    'i and j are 1-based indices
    Dim Sij(2) As Double
If i=j Then
    Sij(1)=0
    Sij(2)=0
ElseIf i>j Then
    Sij(1)=-1
    Sij(2)=0
Else
    Sij(1)=0
    Sij(2)=0
End If
    OnS = Sij
End Function