Declare Function Funktion(byval byte1 as Byte, byte2 as Byte) as Byte
'...
A = Funktion(1, 2)
'...
End

Function Funktion(byte1 as Byte, byte2 as Byte) as byte
'...
End Function

sollte funzen