[V8i - VBA] Get active level

Hi guys,

is tahat the only (and better) way to get the active level?

    Dim myModel As ModelReference
    Dim myLevel As Level
    
    Set myModel = ActiveModelReference
    
    For Each myLevel In myModel.Levels
        If myLevel.IsActive = True Then
            ... ...
        End If
    Next
...

Thanks.

BR,

P