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