Code:
'--------------------------- deklaration ------------------
Declare Function Multiplizieren(x As Byte , Y As Byte) As Word


Dim Wert1 As Byte
Dim Wert2 As Byte
Dim Ergebnis As Word

DO
    wert1   = 125
    wert2  =  48
    ergebnis = multiplizieren(wert1, wert2)    ' Aufruf
    print  ergebnis
    LOOP

END


'--------------------------- die funktion selbst------------------
Function Multiplizieren(x As Byte , Y As Byte) As Word
 Multiplizieren = X * Y
end function