to encrypt:
VB Code:
  1. Public Function Encrypt(text As String)

  2. Dim Text2 As String

  3. Text2 = ""

  4. For i = 1 To Len(text)

  5.     Text2 = Text2 & " " & Asc(Mid(text, i, 1)) * (i + 3) * Asc(Mid(text, i, 1)) + 18

  6. Next i

  7. Encrypt = Text2

  8. End Function