Błąd 242 w Bascom przy wywołaniu funkcji Busy - co robię źle?

Nie wiem, co robię Ÿle, ale cały czas wyskakuje mi ten błšd.

banalny programik:

...
dim A as byte
declare function Busy as byte
...

...
function Busy as byte
Busy=1
end function
...

...
c=busy

no i błšd...

Witam.

Dim A As Byte
Dim C As Byte

Declare Function Busy(byval A As Byte) As Byte

C = Busy(a)

Function Busy(byval A As Byte) As Byte
Busy=1
end function

Troche zamotane ale dziala.
Teraz c mozna dowolnie uzywac