macro program calculates the Channel num

Dear Friends,

Here is a VBA macro small program which calculates the number of channels, given the Erlang value and the GoS according to Erlang B table:

Function Erlangb(traffic As Single, gos As Single)
Dim top As Single
Dim bottom As Single
Dim circuits As Single
top = 1
bottom = 1
circuits = 1
While (top / bottom) > gos
top = top * (traffic / circuits)
bottom = bottom + top
circuits = circuits + 1
Wend
Erlangb = circuits – 1
End Function

Sub main()
x = Erlangb(21, 0.02)
MsgBox x
End Sub
__________________________

The numbers in the line before the last: x = Erlangb(21, 0.02), represents the Erlang and the GoS respectively.
You can change them as required and run the program to have the number of channels displayed in a message box.

Enjoy!!