Function unter Bascom mit Rückgabewert

[for_ro]

Function XXXX (ByVal AA As Byte) As Byte
Dim S As Byte
XXXX = S + AA
End Function

Du musst praktisch den Namen der Funktion auf einen Wert setzen.
Dieser Befehl sollte das letzte sein, was in der Funktion gemacht wird.