If Beispielobject.IsProperty = True AND Beispielobject.Propertyname <> _
  PROPERTYNAME_NOT_IN_USE Then
 'Hier kommt noch Code rein
End If

Dim ty As Type = GetType(List(Of))
Dim mi() As System.Reflection.MemberInfo = ty.GetMembers()
For it As Integer = 0 To mi.Length - 1
    If mi(it).MemberType = System.Reflection.MemberTypes.Property Then
         ' 
    End If
Next it

Zitat:

Hallo! Was genau meinst Du?

Shared Friend Beispielfunktion(Of T1, T2, T3)(ByVal Wert1 As T1, ByVal Wert2 As _
  T2, ByRef Ergebnis As T3) As Boolean
 
'Irgendwelcher Code
 
  return True
ErrorExit:
  'Hier muss jetzt der ganze Kram herausgefunden werden, welcher übergeben 
  ' worden ist usw.,
  'damit ich die Sachen in eine Datei schreiben kann, um ohne zu debuggen 
  ' herauszufinden,
  'was falsch gelaufen ist.
  'Das Problem ist, dass Fehler welche bei mir nicht auftreten,
  'aber auf dem fremden PC auf welchem das Programm am Ende läuft,
  'irgendwie abgespeichert werden müssen, damit ich nicht nur blödsinnige 
  ' Aussagen bekomme,
  'welche mir beim Bugfixen des Fehlers nicht weiterhelfen.
  return False
End Function

Zitat:

Wie wäre es, wenn Du einen Try..Catch-Block verwendest?