Heres what im currently using:
VB Code:
  1. Public Function enc(m As String) As String

  2. On Error Resume Next

  3.     Dim a As Long, x As Long, z As String

  4.     For a = 1 To Len(m)

  5.         x = Asc(Mid$(m, a, 1))

  6.         z = Chr$(x + 2)

  7.         Mid$(m, a, 1) = z

  8.     Next a

  9.     enc = m

  10. End Function

  11. Public Function dec(m As String) As String

  12. On Error Resume Next

  13.     Dim a As Long, x As Long, z As String

  14.     For a = 1 To Len(m)

  15.  
  16.         x = Asc(Mid$(m, a, 1))

  17.         z = Chr$(x - 2)

  18.         Mid$(m, a, 1) = z

  19.  
  20.     Next a

  21.  
  22.     dec = m

  23. End Function

But im looking for something faster