Sub LoopForEach()
        Dim objTextSelection As TextSelection
        Dim lExpression As String
 
        lExpression = InputBox("Bedingung" & vbCrLf & "(z. B. 'Control ctl In" & _
          "Form'", "ForEach-Schleife", "a In b")
 
        objTextSelection = CType(DTE.ActiveDocument.Selection(), _
          EnvDTE.TextSelection)
        objTextSelection.Text = "For Each " & lExpression & vbCrLf
        objTextSelection.Text = "' Exit For" & vbCrLf
        objTextSelection.Text = "Next"
    End Sub

For Each a In b
    ' Exit For
Next

For Each a In b
    ' Exit For
    Next
Next

objTextSelection.Text = "For Each " & lExpression & vbCrLf