'Instructions durchgehen und schauen ob Try-Block drin ist 
            Dim instructions As InstructionList = DirectCast(vMember, _
              Method).Instructions
            Dim blnTry As Boolean = False
            Dim arrEx As New List(Of String)
            Dim arrExImTry As New List(Of String)
            Dim arrCatchEx As New List(Of String)
 
            For i As Integer = 0 To instructions.Length - 1
 
                If instructions(i).OpCode = OpCode._Try Then
                    blnTry = True
                    Output(vbCrLf & ">>>>>> IM TRY.......")
                End If
                If instructions(i).OpCode = OpCode._EndTry Then
                    Output(vbCrLf & ">>>>>> .......ENDTRY")
                    blnTry = False
                End If
 
                'Schleife über alle Statements 
                If instructions(i).OpCode = OpCode.Throw Then
                    Dim strExType As String = ""
                    For Each stat As Statement In DirectCast(vMember, _
                      Method).Body.Statements
                        If stat.NodeType = NodeType.Block Then
                            Dim b As Block = DirectCast(stat, Block)
                            For Each stat2 As Statement In b.Statements
                                If stat2.NodeType = NodeType.Throw And _
                                  stat2.SourceContext.StartLine = instructions( _
                                  i).SourceContext.StartLine Then
                                    Dim t As [Throw] = CType(stat2, [Throw])
                                    strExType = t.Expression.Type.FullName
                                End If
                            Next
                        End If
                    Next
                    If blnTry Then
                        'Instruction gefunden: Dieses Throw liegt innerhalb von 
                        ' TRY-Block
                        arrExImTry.Add(strExType)
                        Output(vbCrLf & "<<<<< INNERHALB TRY: " & strExType)
                    Else
                        'Instruction gefunden: Dieses Throw liegt nicht 
                        ' innerhalb von TRY-Block
                        Output(vbCrLf & "<<<<< AUßERHALB TRY: " & strExType)
                        arrEx.Add(strExType)
                    End If
 
                End If
 
 
                If instructions(i).OpCode = OpCode._Catch Then
                    blnTry = False
                    Output(vbCrLf & ">>>>>> .......CATCH")
                    'prüfen, ob eine geworfene Exception aus arrExImTry nicht 
                    ' abgefangen wurde
'HIER PROBLEM: WIE KOMME ICH AUF DEN TYP DER EXCEPTION??????????????????
                    Dim strExTypeAbgefangen As String = ""
                End If
            Next
 
            'Prüfen, welche der Exceptions, die im TRY geworfen wurden nicht 
            ' abgefangen wurden!
            For Each e As String In arrExImTry
                If Not arrCatchEx.Contains(e) Then
                    'wird nicht abgefangen, dann in andere Liste (der nicht 
                    ' abgefangenen Ex) rein
                    arrEx.Add(e)
                End If
            Next
 
            'Fehlermeldungen ausgeben
            Dim strMerk As String = ""
            For Each item As String In arrEx
                If InStr(strMerk, item) = 0 Then 'Wenn es noch nicht 
                ' aufgenommen wurde.
                    Me.Problems.Add(New Problem(Me.GetNamedResolution( _
                      "FehlendesTag", vMember.Name.ToString, "Exception für die" & _
                      "" & item)))
                    strMerk += item
                End If
            Next