il primo modo che mi viene in mente per fare una cosa del genere (che poi non ho capito se vuoi usare il Cifrario Di Cesare, ed in questo caso si tratta di codifica e non di crittografia) è di dichiarare due enumerazioni e mettere in una il caratteri che vuoi convertire e nell'altra (in corrispondenza) i caratteri da sostituire.

esempio :
codice:
Partial Public Class Form1
    Inherits Form

    Private Enum Caratteri
        A
        B
        C
        D
        E
        F
        G
        H
        I
        J
        K
        L
        M
        N
        O
        P
        Q
        R
        S
        T
        U
        V
        W
        X
        Y
        Z
    End Enum
    Private Enum Sostituti
        M
        N
        O
        P
        Q
        R
        S
        T
        U
        V
        W
        X
        Y
        Z
        A
        B
        C
        D
        E
        F
        G
        H
        I
        J
        K
        L
    End Enum
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If Not String.IsNullOrWhiteSpace(Me.TextBox1.Text) Then
            Dim sb As New StringBuilder()
            For i As Integer = 0 To Me.TextBox1.Text.Length - 1
                sb.Append([Enum].GetName(GetType(Sostituti), CInt([Enum].Parse(GetType(Caratteri), Me.TextBox1.Text.Substring(i, 1).ToUpper()))))
            Next
            Me.Label1.Text = sb.ToString()
        End If
    End Sub
End Class
comunque concordo anche io... vedere il grassetto e un po fastidioso.