what's wrong with the following:
VB Code:
  1. Public Function Decrypt(text As String)

  2. Dim Text2

  3. Text2 = Split(text)

  4. text = ""

  5. For i = 1 To UBound(Text2)

  6.     text = text & Chr(Sqr((Text2(i) - 18) / (i + 3)))

  7. Next i

  8. Decrypt = text

  9. End Function

It says tht line 6 has a problem... but the thing is, tht it worked before.. and now it doesn't...