Encriptar en visual basic

Si solo se trata de una substitución
Puedes utilizar un "select case"
(="en caso que...")
Public Function encriptar(a as string)as string
Dim b as string
Select case a
case "a"
b="g"
case "b"
b="h"
case "c"
b="i"
case else
msgbox "error de select en funcion encriptar"
b=""
End select
encriptar=b
End Function
=============================================
resultado y ejemplo para usar la funcion:
=============================================
Private Sub PruebaEncriptar()
Dim d as string
Dim e as string
d=inputbox ("introduce una letra")
'...aqui llamamos a la funcion encriptar...
e= encriptar d
msgbox d & "encriptada es " & e
End Sub
=============================================
Para encriptar una cadena de texto (o palabra)
Puedes usar la función LEN() y MID() con todo lo anterior.