DTE.ActiveDocument.Selection.Text = "{" DTE.ActiveDocument.Selection.NewLine() DTE.ActiveDocument.Selection.Text = "// Insr" DTE.ActiveDocument.Selection.DeleteLeft(4) DTE.ActiveDocument.Selection.Text = "TOFD" DTE.ActiveDocument.Selection.DeleteLeft(2) DTE.ActiveDocument.Selection.Text = "DO:" DTE.ActiveDocument.Selection.NewLine() DTE.ActiveDocument.Selection.Text = "}" DTE.ActiveDocument.Selection.LineUp() DTE.ActiveDocument.Selection.EndOfLine() DTE.ActiveDocument.Selection.NewLine() DTE.ActiveDocument.Selection.SmartFormat()