Aspetta quel pezzo di codice non andrebbe tra cioè aspetta ti faccio vedere Dove l'ho inserito io:

codice:
Public Class Form1
    'alfabeto normale    
    Dim alfa1 As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

    'alfabeto ricodificato
    Dim alfa2 As String = "ZYXWVUTSRQPONMLKJIHGFEDCBA"

    Private Function CryptString(ByVal stringaDaCodificare As String) As String
        Dim retVal As String = ""
        Dim idxPos As Integer = -1
        For i As Int32 = 0 To stringaDaCodificare.Length - 1
            idxPos = alfa1.IndexOf(stringaDaCodificare(i))
            If idxPos >= 0 Then
                retVal &= alfa2(idxPos)
            Else
                retVal &= stringaDaCodificare(i)
            End If
        Next
        Return retVal
    End Function
Io l'ho inserito così e poi dovrei provare a scrivere ciò che tu mi hai consigliato e provare a scrivere? Ho capito bene?