Sub GetSet()
Dim selection As TextSelection = DTE.ActiveDocument.Selection()
Dim decl As String = selection.Text.Split(" "c)(0)
Dim var As String = selection.Text.Split(" "c)(1)
If selection.Text <> "" Then
DTE.ActiveDocument.Selection.EndOfLine()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "public " + decl + " " + Char.ToUpper(var.Chars(0)) + var.Substring(1)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "{"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "get{return " + var + ";}"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "set{" + var + "=value;}"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "}"

End If
end sub