Public Sub TurnAround()
        Dim selection As TextSelection = DTE.ActiveDocument.Selection()

        Dim codeLines() As String = selection.Text.Split(ControlChars.CrLf)
        Dim codeLine As String
        Dim tmp As String


        For Each codeLine In codeLines

            codeLine = codeLine.Trim()

            Dim part1 As String
            Dim part2 As String
            Dim codeParts() As String = codeLine.Split(Char.Parse("="))

            If codeParts.Length = 2 Then
                part1 = codeParts(1)
                part2 = codeParts(0)
                If part1.EndsWith(";") Then
                    part1 = part1.Substring(0, part1.Length - 1)
                    part2 += ";"
                End If

                tmp = tmp & part1.Trim() & " = " & part2.Trim() & ControlChars.CrLf

            Else
                tmp = tmp & codeParts(0).Trim() & ControlChars.CrLf
            End If

        Next

        selection.Text = tmp

    End Sub