Visual Basic - Metodo del cesar

Sera que laguien tenga el programa del: metodo del cesar, ?, urge se los agradecere

Buenas, como creo son deberes de colegio . . . te muestro el camino

' lo que tienes que hacer es recoger el texto
For i = 1 To Len(texto)

letra = LCase(Mid(texto, i, 1)) ' capturar letra a letra

For a = 0 To UBound(abc) ' buscar la letra en un array donde contenga el abcedario
If abc(a) = letra Then Exit For
Next a
a = a + desplazamiento ' le sumas el desplazamiento
Salida = Salida & abc(a)
Next

' suerte

saludos

garcias por indicarme el camino