Aufruf der Prozedur:
    ...
    Dim method As String = System.Reflection.MethodBase.GetCurrentMethod.Name
    Dim params As System.Reflection.ParameterInfo() = _
      System.Reflection.MethodBase.GetCurrentMethod.GetParameters
    CreateLogfileEntry(method, params)
    ...
 
Public Sub CreateLogfileEntry(ByVal method As String, _
                              ByVal params As System.Reflection.ParameterInfo())
 
        Dim param As System.Reflection.ParameterInfo
        Dim paramcount As Integer = params.Length
        Dim pVal As Object
        For p As Integer = 0 To paramcount - 1
            pVal = params.GetValue(p)
 
            Dim pType As Type = pVal.GetType()
            'hier hatte ich gehofft, dass pVal das Interface annimmt, welches 
            ' als Argument übergeben wurde, leider ist es vom Typ 
            ' "System.Reflection.RuntimeParameterInfo" (jedenfalls wird das zur 
            ' Laufzeit angezeigt, obwohl es das in MSDN gar nicht gibt).
 
            param = params(p)
 
            ...
 
        Next
 
        ...
 
    End Sub

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

   Public Sub MyLogger(ByVal ParamArray params() As Object)
 
        For i As Integer = 0 To params.Length - 1
            '................
        Next i
 
    End Sub

  Private Sub frmTest_Load(sender As System.Object, _
                 e As System.EventArgs) Handles MyBase.Load
 
        MyLogger(sender, e)
 
        '.....