Function will nicht Bitte um Hilfe

Also hab hier mal ne einfache sache die ich nicht compiled krieg
Woran liegts?

bitte helft ...

Declare Sub Transfer(sendeempf As Byte , Adresse As Byte , Varnr As Byte , Wert As Word) As Word

Dim Empfang As Word

Dim Sende As Byte
Dim Adr As Byte
Dim Variable As Byte
Dim Wertt As Word

Sende = 1
Adr = 1
Variable = 5
Wertt = 12314


Do
Empfang = Transfer(sende , Adr , Variable , Wertt)
Loop


Sub Transfer(sendeempf As Byte , Adresse As Byte , Varnr As Byte , Wert As Word) As Word
Transfer = Wert
End Sub

Hallo,

wenn Du eine Function haben willst, warum schreibst Du dann nicht Function anstatt von Sub ?! :-k

vieleicht weil ich vor lauter hitze total verblödet bin
lol ..man wie dämlich von mir


Danke dir linux