VBA EN / Decryptor

kann mir jemand sagen wieso die folgende funktion nicht unter vba (Excel) funktioniert?

Function crypt(String)
For bla = 1 To Len(String)
blub = Mid(String, bla, 1)
If Asc(blub) <> 34 And Asc(blub) <> 35 Then
If Asc(blub) Mod 2 = 0 Then
blub = Chr(Asc(blub) + 1)
Else
blub = Chr(Asc(blub) - 1)
End If
End If
crypt = crypt & blub
Next
End Function

Und noch ne Frage gibt es eine möglichkeit ein Makro gleich beim Laden eines Dokumentes zu starten?
Früher ging es mit

Sub AutoOpen()
' Some code
' ...
End Sub

[ 14. April 2002, 04:18: Beitrag editiert von: Christian ]