Manchmal hilft es eine Frage erst zu stellen :D
Für die jenigen die mal Selbiges bewerkstelligen wollen:
Mit der folgenden Function aus dem Forum lässt sich der aktuelle SubName auslesen
'Subnamen auslesen
Public Function __FUNCTION__() As String
Dim st As New StackTrace
Return st.GetFrame(1).GetMethod().Name
End Function
Ergänzt man diese Bekommt man das übergeordnete Module zurück:
'Modulnamen auslesen
Public Function __FUNCTION__Name() As String
Dim st As New StackTrace
Return st.GetFrame(0).GetMethod.ReflectedType.Name
End Function
5P1K3
