Private Sub Sub1(pMap As IMap, pLayer As ILayer, pName As String)
 
        'so würde ich es gern machen, immer der gleiche Call ohne etwas ändern 
        ' zu müssen:
        Dim method As String = _
          System.Reflection.MethodBase.GetCurrentMethod.Name
        Dim params As System.Reflection.ParameterInfo() = _
        System.Reflection.MethodBase.GetCurrentMethod.GetParameters
        CreateLogfileEntry(method, params)
 
        'wenn ich Dich richtig verstanden habe, dann soll ich es so machen:
        Dim arr() As Object = {pMap, pLayer, pName}
        CreateLogfileEntry(method, arr)
        'dort dann das array durchgehen und die Werte, Namen etc. herauslesen
 
        '...
    End Sub
 
    Private Sub Sub2(pIdx As Integer, pLayerName As String)
        Dim method As String = _
          System.Reflection.MethodBase.GetCurrentMethod.Name
        Dim arr() As Object = {pIdx, pLayername}
        CreateLogfileEntry(method, arr)
        '...
 
    End Sub