cst (VBA) problem

Hi everyone,
Im trying to use VBA in CSt Microwave Studio to define a goal that the radiation to be as sphere, or by other words min directivity to be close as possible as max directivity.
plz i need help because i haven't used this before.
thnx

I could find the max directivity and i tried to use the same function for minimum but it didnt work. Also i want to calculate the average. the code is shown below. please can you help me with this
//
userdefined goal function for optimizer
Option Explicit
Function GoalFunction() As Double
Dim cst_value As Double
With FarfieldPlot
.Reset
SelectTreeItem "Farfields\farfield (f=0.433) [1]"
.SetPlotMode "directivity"
.SetScaleLinear True
.Plottype "3D"
.Vary "theta"
.Thetastep 1
.Phi 0
.Plot
Wait 0.02
' Maxmize directivity
GoalFunction = 10/Abs(.Getmax)
End With
End Function
Sub Main()
MsgBox CStr(GoalFunction())
End Sub
//

in the help you have some programm talking about gain and directivity in VBA. in the help write "userdefined watch" and "Visual basic (VBA) langage".
I'm studying VBA right now and I try to do something else, I have a macro which exist already. I can make this macro local or global. I want to run this macro after each calaculation of a parameter in a parameter sweep simulation. I know I have to write something in the case 1. I tried to write open "namemacro.mcr" but it didn't work. I f someone has a help, I will be grateful:
-------------------------------------------------------------------------
' userdefined watch for parameter sweep
Option Explicit
Sub ParameterSweepWatch(action As Integer)
'Please define actions for the parameter sweep watch here.
Select Case action
Case 0
'Please define actions before the parametersweep starts.
Case 1
'Please define actions after each calculation.
Case 2
'Please define actions after the parametersweep has finished.
End Select
End Sub
Sub Main()
ParameterSweepWatch 0
ParameterSweepWatch 1
ParameterSweepWatch 2
End Sub
-----------------------------------------------------------------------