Public Function A(Index, Language)
A = CallByName(Me, "A"& Index &"("& Language &")", vbMethod)
'ich weiß leider nicht den Syntax von CallByName, bzw. ob es auch möglich ist, 
' damit Argumente zu übergeben
End Function
 
Private Function A1(Language)
 
End Function
 
Private Function A2(Language)
 
End Function