[RESOLVED] Swap letters - sort of like a simple encryption

[dbasnett]

Close but no cigar

        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim es As String
        Dim c As Char
        Dim i As Integer
        For Each c In s
            i = Asc(c) Xor 27
            Debug.WriteLine(Chr(i))
        Next