Function NumVS(ByVal J As Long, ByVal A As Long) As Long
If J > A Then
NumVS = J * (J - 3) \ 2 + A + 1
ElseIf J < A Then
NumVS = A * (A - 3) \ 2 + J + 1
Else: NumVS = 0: End If
If NumVS <= 0 Then Err.Raise 9999, , "NumVS(" & J & ", " & A & ") impossible."
End Function