[MACRO] comment process

Sub OneLineComment()
    Dim szLineData As String
    Dim point As EditPoint

    With DTE.ActiveDocument.Selection
        ' 글이 있는 문장에 제일 앞으로 이동
        .StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)

        ' 에디트 포인트를 설정하고
        point = .TopPoint.CreateEditPoint()

        ' 내용을 가져온다. 2개만큼
        szLineData = point.GetText(2)

        ' 가져온 문자가 // 이면 주석을 지우고
        ' // 가 아니면 주석을 생성한다.
        If szLineData.Substring(0, 2) = "//" Then
        DTE.ExecuteCommand("Edit.UncommentSelection")
        Else
        DTE.ExecuteCommand("Edit.CommentSelection")
        End If

    End With

End Sub