QWERTY to DVORAK macro

Sub DVORAK()

    'converts selection to DVORAK

    Dim textRange As range
    Set textRange = Selection.range

    For i = 1 To textRange.Characters.Count

        Select Case textRange.Characters(i).Text
            Case "¬"
                textRange.Characters(i).Text = "~"
            Case """"
                textRange.Characters(i).Text = "@"
            'smart open quote
            Case "“"
                textRange.Characters(i).Text = "@"
            'smart close quote
            Case "”"
                textRange.Characters(i).Text = "@"
            Case "£"
                textRange.Characters(i).Text = "#"
            Case "-"
                textRange.Characters(i).Text = "["
            Case "_"
                textRange.Characters(i).Text = "{"
            Case "="
                textRange.Characters(i).Text = "]"
            Case "+"
                textRange.Characters(i).Text = "}"
            Case "q"
                textRange.Characters(i).Text = "'"
            Case "Q"
                textRange.Characters(i).Text = """"
            Case "w"
                textRange.Characters(i).Text = ","
            Case "W"
                textRange.Characters(i).Text = "<"
            Case "e"
                textRange.Characters(i).Text = "."
            Case "E"
                textRange.Characters(i).Text = ">"
            Case "r"
                textRange.Characters(i).Text = "p"
            Case "R"
                textRange.Characters(i).Text = "P"
            Case "t"
                textRange.Characters(i).Text = "y"
            Case "T"
                textRange.Characters(i).Text = "Y"
            Case "y"
                textRange.Characters(i).Text = "f"
            Case "Y"
                textRange.Characters(i).Text = "F"
            Case "u"
                textRange.Characters(i).Text = "g"
            Case "U"
                textRange.Characters(i).Text = "G"
            Case "i"
                textRange.Characters(i).Text = "c"
            Case "I"
                textRange.Characters(i).Text = "C"
            Case "o"
                textRange.Characters(i).Text = "r"
            Case "O"
                textRange.Characters(i).Text = "R"
            Case "p"
                textRange.Characters(i).Text = "l"
            Case "P"
                textRange.Characters(i).Text = "L"
            Case "["
                textRange.Characters(i).Text = "/"
            Case "{"
                textRange.Characters(i).Text = "?"
            Case "]"
                textRange.Characters(i).Text = "="
            Case "}"
                textRange.Characters(i).Text = "+"
            Case "s"
                textRange.Characters(i).Text = "o"
            Case "S"
                textRange.Characters(i).Text = "O"
            Case "d"
                textRange.Characters(i).Text = "e"
            Case "D"
                textRange.Characters(i).Text = "E"
            Case "f"
                textRange.Characters(i).Text = "u"
            Case "F"
                textRange.Characters(i).Text = "U"
            Case "g"
                textRange.Characters(i).Text = "i"
            Case "G"
                textRange.Characters(i).Text = "I"
            Case "h"
                textRange.Characters(i).Text = "d"
            Case "H"
                textRange.Characters(i).Text = "D"
            Case "j"
                textRange.Characters(i).Text = "h"
            Case "J"
                textRange.Characters(i).Text = "H"
            Case "k"
                textRange.Characters(i).Text = "t"
            Case "K"
                textRange.Characters(i).Text = "T"
            Case "l"
                textRange.Characters(i).Text = "n"
            Case "L"
                textRange.Characters(i).Text = "N"
            Case ";"
                textRange.Characters(i).Text = "s"
            Case ":"
                textRange.Characters(i).Text = "S"
            Case "'"
                textRange.Characters(i).Text = "-"
            'smart open quote
            Case "‘"
                textRange.Characters(i).Text = "-"
            'smart close quote
            Case "’"
                textRange.Characters(i).Text = "-"
            Case "@"
                textRange.Characters(i).Text = "_"
            Case "z"
                textRange.Characters(i).Text = ";"
            Case "Z"
                textRange.Characters(i).Text = ":"
            Case "x"
                textRange.Characters(i).Text = "q"
            Case "X"
                textRange.Characters(i).Text = "Q"
            Case "c"
                textRange.Characters(i).Text = "j"
            Case "C"
                textRange.Characters(i).Text = "J"
            Case "v"
                textRange.Characters(i).Text = "k"
            Case "V"
                textRange.Characters(i).Text = "K"
            Case "b"
                textRange.Characters(i).Text = "x"
            Case "B"
                textRange.Characters(i).Text = "X"
            Case "n"
                textRange.Characters(i).Text = "b"
            Case "N"
                textRange.Characters(i).Text = "B"
            Case ","
                textRange.Characters(i).Text = "w"
            Case "<"
                textRange.Characters(i).Text = "W"
            Case "."
                textRange.Characters(i).Text = "v"
            Case ">"
                textRange.Characters(i).Text = "V"
            Case "/"
                textRange.Characters(i).Text = "z"
            Case "?"
                textRange.Characters(i).Text = "Z"

        End Select

    Next i

End Sub