Sub Barwerte()

  Dim erm As New ERMath, kom As Kommutat
  Dim än#, an#, äxn#, ayn#, Ax#, Ex#, eox#, nAx#

  Set erm = New ERMath
  erm.Create TG_ERM90, .0325, CALC_real   ' neu mit Load()!
  Set kom = erm.Kommutat
  With kom
    än = .aen(20)
    an = .an(20)
    äxn = .aex(20, 10)
    ayn = .aex(20, 10, False)
    Ax = .AAx(20)
    nAx = .Anx(20, 10)
    nAx = .AAx(20, -10)     ' gibt das Gleiche 
    Ex = .Ex(20,5)
    eox = .eox(20)
  End with
  Set kom = Nothing
  Set erm = Nothing
End Sub