Du mußt immer Klammer machen

Declare Function Getkey() As String

Key = Getkey() ' Aufruf der Function

END

Function Getkey() As String