I came up with some simple code to do so, do you know even simpler once?
BRAPI:
Dim aDimID As Integer = 0
Dim aDimName As String = BRApi.Finance.Dim.GetDim(si, New DimPk(dimtypeid.Scenario, aDimID)).Name
brapi.ErrorLog.LogMessage(si, $"Name {aDimName}")
aDimName = ""
aDimName = brapi.Finance.Dim.GetDims(si, dimtypeid.Scenario).Find(Function(x) x.DimPk.DimId = aDimID).Name
brapi.ErrorLog.LogMessage(si, $"Name {aDimName}")
and
Api:
Dim aDimID As Integer = 0
Dim aDimName As String = api.Dimensions.GetDim(New DimPk(dimtypeid.Scenario, aDimID)).Name
brapi.ErrorLog.LogMessage(si, $"Name {aDimName}")
aDimName = ""
aDimName = api.Dimensions.GetDims(dimtypeid.Scenario).Find(Function(x) x.DimPk.DimId = aDimID).Name
brapi.ErrorLog.LogMessage(si, $"Name {aDimName}")
Cheers