Aquí te pongo dos funciones
'//////////////////////////////////////////////////////////////////////////////////
'Pequeña función para cifrar una string
'//////////////////////////////////////////////////////////////////////////////////
'
Public Function cifrar(Texto As String) As String
Dim i As Integer
For i = 1 To Len(Texto)
cifrar = cifrar & Chr(Asc(Mid(Texto, i, 1)) - 18)
Next i
End Function
'//////////////////////////////////////////////////////////////////////////////////
'Pequeña función para descifrar una string
'//////////////////////////////////////////////////////////////////////////////////
'
Public Function descifrar(Texto As String) As String
Dim i As Integer
For i = 1 To Len(Texto)
descifrar = descifrar & Chr(Asc(Mid(Texto, i, 1)) + 18)
Next i
End Function
Básicamente lo que hace es ir transformando los caracteres, les coje el código ascii y lo convierte en 18 caracteres ascii menos para cifrar, y les suma esos 18 para descifrar. Es un algoritmo muy básico pero espero que te sirva.